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COpyRTGHT 1 971, 197 2, 1973, 1974,1 975 

BY 
DIGITAL EQUIPMENT CORP'IRATTOM 
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1/24 
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8/11/7 

8/20/7 
9/4/75 
9/1 2/7 
9/25/7 

%''^ATC 
g DURI 
CLEAR 
10/15/ 
9/22/7 
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PAR AC 
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S;^^AP 
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OFTFC 
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SPE 
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excess nods SCRA^8LI^(G & 
ICH DEALLOCATES ALL BLOCKS & 
ANK YOU" OR ERROR PRINT OUT & 

TO BE ^HirrEN ro core by x-.sve 

F 

ows 

TE COOF 

READ & $K(-777777-) PROBLEMX 
OR '^lirHliM VILJNIPS IfsiSTEAD OF HA'^OLFRS 
PORT 
SY'^JlAX 

CK =^ETiA/FF^ PHAiMTO^S ^ DSKACT, 
Y TO BE -1 OR 
PLACEMENT OF POJi^TER ONLY NODE 

& lAJTER I»^TO 2 PARTS - 1ST 

JC FJnCTIOMS 

DLl^G ROUriMES 

ALLO.A? PARIITIOMS TO 128K 

AD BUFFER POOL CODE 

ALLO« MORE THAN READ ALL 
PART ^-vrTHI^I A CALLED PROGRAM, 
F IMT SIDE, ALLO^ E^ERGE^iCY 
TL U FROM TERVIIMAL ONiLY, 
VERFLO^ 
D FOR-IIWTIL SYNTAX 



e 

AM 

STRIMG PROCSSSI'^iG 



IS S/SiEw ^^iAS JRIGI-iALLY OEVELOPFO AT THE LABORATORY 

CO^PUrFR SCIENCE nF MASSAC J JSFTTS GF-\iERAL HOSPITAL AMD ^AS 
P P R T E D ^\ R F S F A R C P G R A ^) T S F R v! THE N 'i T 1 ^■ A L CENTER FOR 
ALTH SERVICES RESEARCH AND OEVELOP^IEMT (HS Q0240) ANiO FRO^^ 
F ^iAirONAL JNiSTTTPTE OF GENERAL MEDICAL SCTENiCES (GM 15287). 
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•eJECT 



PA 



LJ^'^PS 



1 



77 

1^ 
7Q 

RO 

«4 
B5 

s7 

99 
9 
91 
97 

9 4 
95 
96 
c»7 

Q.^ 
90 

JOO 
101 
10^ 
I 3 
104 
IDS 
106 
107 
I OH 
1 9 

I 1 u 

II 1 
1 12 
1 1 3 
1 14 
115 
1 1> 
1 t 7 
1 1« 
1 1 9 

r-?n 
i?i 

1 7 ^ 
1 '/'^ 
12s 

126 
127 
12B 
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INPUT • 


/ 


DCOl 


/ 


PRTNUM 


/ 


CORE 


/ 


RP02 


/ 


^^POd— 


/ 


RFtS 


/ 


OTA 


/ 


PRTSIZE 


/ 


NOG 


/ 





/PARAMSTERS FOR CO^»0IT:lOMAL ASSEMBLY 

/ .... NOR v^ ALLY FlNTERED THROUGH .DAT SLOT -10 (SSCD?4DARY INPUT) 
.DEC 

/the; F3LL0WING PARAf^ETERS MOST 8E E^iTFRED THROUGH THE SECONDARY 

THFRS IS NO DEFAULT CO'^JDITIQf^ FOR THEM 
/NUMBER OF DCOIEB'S 
/NUMBER OF PARTITIONS 
/CORE SIZE I^J THOUSANDS CEG 32) 
/NUNBER OF RP02 DISKS 
/NUMBER OF RP03 DISKS 
/MUNRER OF DECDISKS 
/DUMBER OF DECTAPE TRANSPORTS- 
/SIZE OF A PARTITION I^ LORDS' 
/NUM3ER OF GLOBALS 

/THE FOLLOWING MAY APPEAR OW THE SECOMDARY IMPUT, BUT IF 

/MOT THERE, ARE ASSIGNED A DEFAULT VALUE 

/ 

.IFU^^D PFAIL 
PFAIb = /POi^ER FAILURE OPTIDi^ 

.FfvOC 
/ 

/ GARBAGE COLLECTOR PARAMETER TO INHIBIT RUNNIM3 OF GARBAGE 
/ COLLECTOR 1^4 THE ROUMD ROBIN 
/ 

.IFUND GGROW 
GGRO/v'=:0 

.EiMDC 

.IFUND submp:rge 
SUB.MERGE=1 

.E^iDC 

.IFUND RP03 



RP03=0 



API = 



.IFUND API 



/*12JAH8=r 
/*12JAH8=^ 
/4'12JAH8* 



.Fi^DC 

.IFNOZ API 
1NT0N=:I0^ 
Ti^TOFF = IOF 

. E N D C 

.IFUWD KV^^ 
XVM = 

.ENDC 

.IFUMD DCOUNT 
DC0UWT=10 

.E^iOC 

.IFUMO LP15 
LP15=0 

• ENDC 

.IFUWD LP15.2 
LP15.2=0 



/*12JAH15* 
/assume NON-XVM SYSTEM /=f=12JAH15* 

/*12JAH15* 



P A G f; 



' !J MPS 1 



1 ?9 

no 
m 
13;? 

1 33 
13<t 
1 35 

1 36 
37 

3B 
39 

A r\ 

-^ ■ } 

41 

4 2 
43 
4 4 
4 5 
45 
47 

4B 

4Q 

50 

51 

52 

53 

54 

55 

56 

57 

5B 

59 

50 

b1 

1 62 

153 

154 

165 

166 

1 'ol 

\ 59 

15^^ 

1 70 

171. 

17? 

17^ 

174 

175 

17^ 

177 

178 

17Q 

1 HO 



/MO viOMEY FUNCriOM 



.IFUND C^03B 
Cft03B=0 
CRKX=0 

.ENDC 

.IPUND CR15 
CR15=0 
CRXX=0 

.CNDC 

.IFPNZ CR03B 

.IFPWZ CR15 
EARNING 00 MOT ASSEMBuK WITH CR03B AND CR15 BOTH POSITIVE: AMD (^O^^-ZERO 

.F^'D 

• E^MDC 

,IFPNZ CROiB+CRlS 
CRXX=1 

.ENOC 

.IFU^iD MQfvjeY 
MOMFY=0 

,ewDC 

.IFU^JD F^^1D;^1FY 
F'^O^iFy = 

.EMDC 

.IFPMZ pvlQ^iFY 
0(,)U001 A f^GNE^=l 

.ENDC 

.IFU^mD mta^ow 
MTA9CiN = 

.IFUND MTA7nM 
MTA73N=0 

.EMDC 
000001 A ^!TA = J^TA70N + MTA90^^J 

.IFUMO CLKHZ 
ClfKHZ = &0 

.IFUMD SLICE 
SL£Ce=150 

.F'^^OC 

.IFUND w/TIMFP 
WTIMER=60 

.ENDC 

.IFUND DUMMY 
n [J vi M Y = 

.Ei^^DC 

.IF!J!\iD TTCHAR 
TT2H^R=25 

,ZWZ 

.IFCfNO TTALEM 
TTALEN=10 

.ENDC 



/^IQ 9-TRACK DRIVES 

/MO 7-TRACK DRIVES 

/TOTAL MUfviBER OF ^AGTARE DRIVES 

/CLOCK FREQUENCY IM HERTZ 

/TIME SHARING SLICE IN BILLISECONDS 

/I ^\^ DEFAULT SIGNOFF 



/\'f.'^'6eR OF CHARS IN EACH TT BUFFER 



/TT BUFFER "ALMOST EMPTY" CHAR COUNT 



PAGB 



LH^PS 10' 



IBl 
182 
19 3 

184 
185 
1«6 
187 
1 8!^ 
1 ?^^^ 
1 90 
1 Q1 
19? 
193 
194 
195 

1 96 
197 
198 
199 
200 
?01 

2o;> 

204 
?05 
206 
207 
20^ 
209 
210 
211 
21 2 
21 3 
214 
215 
215 
217 
218 
219 
220 
221 
222 
223 
224 
225 
228 
227 
22® 
229 
230 

2 31 
232 



/TT BOPFEIR "AL-10ST FaLL" CHAR COUNT 



000 40 ^ 
1 (i h 
000003 A 



000 in a. 

0000 31 A 



/RP02 PROGRAM FILE OPTIMUN SPACI^^G 



/RP02 GLOBAL FILE OPTIMU.^ SPACING 



/RF15 PROGRArv! FILE OPTIMUM SPACING 



/RF15 GLOBAL FILE OPTIMUM SPACING 



/*12JAH10* 

/tl2JAH10* SET POS TO RETAIM OLD SHIGH SEMANTICS 

/*12JAH10=f; 



.IFUND TTALFL 
TTALFL=5 

.E^DC 

.IFUND DTBSZ 
DTBSZ=256 

.EWDC 

. I FUND RPOPTD 
RP0PrD=2 

.EWDC 

•IFUND RPOPTG 
RPDPrG=6 

.ENDC 

.IFUND RFOPTD 
RF0PTD=:2 

.E^iDC 

.IFUND RFOPTG 
RF0PTG=4 

.EfslDC 

.IFUND MODIFY 
'^OOIFY = 1 

.FMDC 

.IFUND ^IX 
V11=0 

,e^iDC 

.IFUND pAfRlTE 
PislRlXE = 

.FNDC 
/THE FOLLOi/^^ING MA!( MOT 3E CrtAWGEO BY SECONDARE INPUT 
/ 

RPSECT=256 
BL0CK=64 

RP = RP03=^2 + RP02 /nUHBER OF LOGICAL RP UNITS *12JAH8* 

/ 

.IFUND COMMAWO 
COMMANO=73 

.ENOC 

.IFNOZ COMMAND 
COM!^AND=:73 

.ENDC 

• IFPNZ C0M*^ftM0-169 
C0MMAN0=169 

.EMDC 
CQMMAND = COM^^^AND + l/3*3+l 
C0M6UFF = C0'^i^AND + 2/3 
/ 

.IFUND STRING 
STRIi^G = 7 3 

.EM DC 

.IFNOZ STRIfJG-72 
STRING=73 

.ENDC 

.IFPNZ STRli\;G-178 



/If^MEDIATE ^RITE TO OlSK 



/*12JAH16* 
/*12JAH16* 
/*12JAH16* 



phtjZ 7 -'UMPS 100 

2 33 STR3^^G=178 

234 .EN DC 

235 000111 A STRI^G=:STRING+l/3^3 + ! 

238 000031 A STRACC=STRXNG+2/3 
237 / 

23B .OCT 

239 .IFPNZ API 

240 705521 h IN rOiM = 70552 1 /EBI 
24t 7C5522 A I NTOPF=705522 /DBI 
2 42 .EMDC 

243 .IFUND MTCOL />^12JAH17* 

244 MT:0L=73 /*12JAH17* 

245 .ENDC /*12JAH17* 

246 .IFPHZ viTCOL-STRlNG /^12JhHn* 

247 MTC0L = STR1MG /^12JAH17=^ 

248 .ENDC /*12JAH17'S= 

249 / 

250 /SYSrEM PARAMETERS BASED OH COMPIGURATIOfl TAPE 

251 / 

252 / 

253 00«^050 A NUMTT = 0C01 'M /TOTAL DEVICES Oh OCOl'S 

254 000062 A DEV=MUMTT+ 1 +DTA+ I +LP1 5+UP15 . 2+CRXX+MTA+DUNmy /TOTAL DEVICES, IWCLUDIWG 

255 /I CONSOLE TELLY AND 1 PTR-PTP 

256 000051 A rfUMAT=NUMTT+l /TOTAL TELETYPES, INCLUDING CONSOLE TELLY 

257 000015 A TTwORD = TTCHAR4-l/2 
25H ,OEC 

259 000003 A PERI0D = CLKHZ*SLICE/.1 000 /CLOCK COUMTS/TIME SLICE 

260 .OCT 

261 160000 A , ,C=C0RE*2000 

262 .IFUND .32K 

263 .32K=40 

264 .E^JDC 

265 .IFUND HLOCK /IF HLOCK IS OEFIMEO AS OTHER THAN 

266 HLOCK = /SYSTEM ^ILL ^iOT HALT UNTIL USER 

267 .ENDC /TAKES ACTION AMD ZEROES HALTONI IH SYSTAB 
26R / 

269 .IFOEF FiIWCTl /IF USER IS SPECIFYIMG EITHER SPECIAL 

270 KBBGFUcO /FUMCTIQMS 

271 ,E!MOC /OR 

272 .IFDEF CSSVT05 /IS fJSIMG COMPUTER SPECIAL SYSTEMS VT05 
27 3 KBBGFU = /EQUIPPED ia/ITH BADGE READER-- 

274 .EMDC /SET UP FLAG TO SAY THAT ^E NEED %B VARIABLE. 

275 .IFOEF BADGliNj 

276 KftBGFU=0 

277 .EN'DC /ALSO IF HE'S GOT A BADGIN OF HIS Ov^fM 



PiXGF^ B 'H!'viPS 100 GL3SAL OSKi MITIO^JS 

278 .TITLE GLOBAL OEFIMITIO^S 

279 /*12JAH12* 

280 /GLOBALS USED IN ALL Si^STGMS 
281. /*12JAH12* 

282 /INTeR^]AL 

283 / 

28 4 .GLOBL ACSWRO , ACTE^^:P , ASSEM , BEIGIN , 8KCH AR , ROOL , BOOLE 

285 .GLOBL BUFF , BUFFI , Rim IT , CHARl , CHZ\R2 , CHFJCK 

286 .GLOBL CLKCNT , CLOSE, CLDSEl , CONT , CRFIL , DABSPT , DECIN , DECOUT 
28 7 .GLOBL OEGRAD , DIRPTR , OISLOP , DISPAT , OSK ACT, OS'KBf F , OSKCNT 

28 8 .GLOBL DT ABl , DTABLE , DTATST , DVHANG , D VHMGl, END, EVAL , EVAR 

289 .GLOBL EXIT , FDRTST , GBAD , GBLTPT , GB^D2 , GCHANP 

290 .GLOBL GOISK , GENO , GETKEY , GHDOLD , GHE AD , GHI , GLFMCT . GLOBAL 

291 .GLOBL GSY^.GSYHBO^GU^J I T.H ALTON, HANG, HAfvlGl ,HLrSv^T 

2 92 .GLOBL ICHARI , ID, INOTAB , IPLACE , IPOINT, IVAR , KEY , KEY. 2 , KEYCHK , KVAR 

29 3 .GLOBL LNT8PT , LOC , LVAR, M , ^OMIT , MVAR , NBPWT , OBP^T , OCHAR , OCHARI 

294 ,IFP^5Z XVfA /*12JAH15* 

295 .GLOBL ^EXEC /^12JAH15* 

296 .EMDC /*12JAH15* 

297 .GLOBL OCTOUT , OUTPUT , OPLACE , OPMCNT , OPOIWT , 0?1 ,OTEXT , OUT, OUTTAB , PACKEM 

298 .GLOBL PTE«PX , PROCNTX , P600LK /*12JAH17* 

29^ .GLOBL PART,PLACE1,PLACE2,PLEMG,P0I^»T1,P0IN'^2,PRGDRT,PRINT1,PRMCDV,PR^DA 

300 .GLOBL PRQG,PRTEND,PRTIDX.PRTIM,PRTNMB,PRTPTR,PTTRAN,PTWHO 

301 .GLOBL PUSER,RDC:^T,REM.0VE,RlP4D0i-ilM,SAVE,SCRI?,SCRIPS,SEC0ND 

3 02 . GLOBL SETlO, SPUINT, STACH4 , STACH8 ,STACK, STATCH, STATl , STATX, STEP 
303 .GLOBL STORI , STR4 , SUBGPT , SUBQUE , SliM , SV AR , SVE , Sv^APSa' , SWPCNT 

30 4 .GLOBL SYM, SYMBEG, SYMBOL, SY^^BQT, SYMS, SYNTAX, TEMP , TEHPl 

3 OS .GLOBL TE^1P2.TER^1,USA8Le,UNSAv'E,X0UT5A,US£R,US£RS,VAL,\/BL0CK 

3 06 .GLOBL \/ENO . WHOTAB , ^RPART , v^JRTCNT , vvRTSW , w VAR , XFRDN , X0UT4A , XVAR, . JCFNl , . . Br4 , %E 

307 .GLOBL XC01,XCI1,XCI3 

308 /EXTERNAL - MU^iPSB 

309 / 

310 .GLOBL BEGI0,B00LX,CALLP,CALL7,CALL71,CFUN1 , DABSXF , OISTR 

311 .GLOBL DL2,DMP,OMPOLD,0SKRDE,DSKwRT,ERROR0,ERROR2,FILE /*12JAH17* 

312 .GLOBL FILE6, FTABLE,FLIWCT,FU^30UT, GARB, GEThJEi^tGFREE, HALT, HALTl , HALTER 

313 .GLOBL ^^aMPS2 /^12JAH17* 

314 .GLOBL HFGL01 , HKBGWT, HOOT , HTPENT , LOCK , 0F2 , 0F3 , QF5 , OLA Y 

315 .GLOBL QF7,QF8,R0CNTX,SMAFU,TEN!PX, UNLOCK, XD I SLD 

316 / 

317 /EXTERNAL - MJJBF 

318 / 

319 .GLOBL CL0CK,DATe,DATe.l,nATE.2,DXKEY,GBUFFl,GCHAII^ 

320 .GLOBL MUBUFF /*12JAH17* 

321 .GLOBL GTABLErGTMBUF,GTM8. 1 , N10NTH , PASTAB 
3 22 / 

32 H /EXTER:\'AL - MflPT 

324 / 

325 .GLOBL PTP I ^' . PTPOUT , PTROUT 

326 .GLOBL MUPT /*12JAH17=<^ 

327 / 

328 .IFPMZ API 

329 .GLOBL JGFLAG 



PAGP 



'Ml^APS 100 



GL3BAL oeFlMniON'S 



3 30 
331 
33? 
33 3 
334 

3 35 



/ 

/EXTERNAL - MDUMP 

.GLOBL MDUMP 
.EJECT 



/'«^12JAH17* 

/*12JAH17* 
/*12JAH17=^ 



PkGK 10 



PS 10 



GLDdAL 0£FINITlO^^S 



336 
337 
338 
3 39 
340 
341 
342 
34 3 
344 
345 
3 4b 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
35B 
359 



/*12JAH12* 

/M3NEY GLOBALS 
/*12JAH12* 

.IFPiMZ 'AOHEY 

/ 

/IMTeRMAL 

/ 

. GLOBL s rR4 . tf:mp , X pa I ^T , :^^FUMcr , s ve , te; vspi , po r mti 

•GLOBL CHAR1 , SYNTAX, ICHAR I. OCHAR, OUTPUT, SAVE, UNSAVE 

/ 

/ 

/EXTER^JAL 

/ 

.GLOBli 'vlO^^JEYM 

• ENDC 
/ 

.IFPMZ F-^GNEY 

/ 

/INTERNAL 

/ 

.GLOBL FLOAT. M0NYSW.VALF.BUFF2 

• EiNiDC 
/ 
.EJECT 



/=«=12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17^ 



PAGe n MdMPS 100 GLOBAL DEFIMITIONS 

360 /'f'12JAH12* 

361 /SCANNER GLOSALS 

362 /'?'12JAH12* 

363 .IFP^JZ DCOl 

364 / 

365 /IMTER^AL 

366 / 

367 .GLOBb XlUT3,M0WTTy,ClMSi^,ReA01 A 

368 ,IFOeF K8BGFU 

369 .GLOBL %3 

370 .ENDC 
371. / 

372 /EXTERNAL - MUOC 

373 / 

37 4 ,GLOSL T TSET. SCANO , SC A^CT , K80UT , TPIN 

375 .GL03L '^UOC /*12JAHl?* 

376 .GLOBL I^TSCO 

377 .IFPNZ OCOl-1 
37B .GLOBL litTSCl 
379 .EfMDC 

3«0 .IFPMZ OCOl-2 

3R1 .GLOBL IiJTSC2 

39? ,EWDC 

3B3 .IFPNZ OCOl-3 

384 .GLOBL I^n)TSC3 

385 .ENDC 

386 .IFPNZ OCOl-4 

387 . GLOBL l^'TSC4 
38B .EMOC 

389 .IFPf^Z OCOl-5 

390 .GLOBL )lNTSC5 

391 ,FNDC 

392 .IFPNZ DCOl-6 

393 .GLOBL INTSC6 

394 .ENDC 

395 .IFPNZ DCOl-7 

396 .GLOBL IMTSC7 

397 .ENDC 
39B / 

399 .EMOC 

400 .EJECT 



PAGE 


401 


402 


40 3 


404 


405 


406 


407 


40^ 


409 


410 


411 


412 


41 3 


414 


415 


416 


417 



1.2 



U^PS 100 



;L3BAL DEFIMITIO^IS 

/^12JAH12* 
/RP GLOBALS 
/4=l?JAH12* 

.IFPIvZ RP 

/ 

/I^iTER^*AL 

/ 

,GL08L i^PWRT.^^RPSTA(^R?E:RRS,^iFLiAG.GUNX^,RPKRS^,SU6QUES /*12JAH15* 

.GLOBL RPDRV.RPADDR,PRT!^^B,RPTRAN,RUMOOWN 

/ 

/EXTERNAL - RP 

/ 

.GL06L RPFLAG 

.GLOBL :viijRP /*12JAH17* 

/ 

.EMDC 

. EJECT 
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418 


419 


420 


421 


4?2 


42^ 


424 


42S 


426 


427 


423 


^29 


4^0 


431 


432 


433 



MUMPS 100 



GLaSAL DEFINITIONS 

/=^12JAH12* 

/RF GLDBALS 
/*12JAH12* 

.IFPMZ RP15 

/ 

/INTERNAL 

/ 

.GLOBL NFbAG,RPH;KRS,RFSTAT,RPAORO,RFADRl , PRTN M3> RFTR AN , BPWRIT /*12JAH16=«^ 

/ 

/EXTERNAL - MIlRF 

/ 

•GLOBL RPFLAG 

.GLORL iURF /*12JAH17'r 

/ 

.ENDC 

.EJECT 



PAi 



1.4 



n I J M p 3 I Q (J 



GLOBAL D£f"pIlTlQMS 



4^4 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
45 3 
454 

455 
455 
457 



/4=12JAH12* 

/DECTAPE GL08ALS 
/=5'12JAH12=*^ 

,IFPMZ OTA 

/ 

/INTERNAL 

/ 

.GLOBL 

.GLOBL 

.GLOBL 

.IFNOZ 



HANG,PRTi^NR.LOK0T.AVAR,XOUTOT,0Ti^HO1 

TMPUT,NOFLAG,IN, ALT^tOD,EXIT,DTERRA,DT3UEF 

DTERRB,DTERRS,GaTPtJT,DTJMPO,DTJNPI,DrTRAN 

API 

DTSKPC 



.EMDC 

/ 

/EXTERNAL - DT 

/ 



, GLOBL 

•GLOBL 

.IFNOZ 

.GLOBL 

.ENDC 

/ 

.ENDC 

.EJECT 



DTACT.DTnLIT,OTIM,OTOUTl,OTIMl 

MIIOT 

API 

DTENTl ,DTEWT2 



/*12JAH17* 
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GLJBAL DfcPlNlTIONS 



458 

459 

46 
^61 

462 
463 
464 

465 
466 
467 
469 

■4 i. C3 

47 
471 
47? 
473 
4 74 
475 



/ =^ 1 2 J A H 1 ? =^ 
/MX GLOBALS 
/*t2JAH12* 

,IPPMZ '^1!\ 

/ 

/INTERiVAL 

/ 

.GbOBL !^TST?\T,^Tf^:RRS, ^TtlMl , M FwHOl , '4TTR A M , I^JPUT , MT6UFF 

,GL06L MTPUT^'^TGeT^MTEaM 

.GLOBL MTG\/FL /*12JAH17* 

/ 

/EXTKRMAL - mj AT 

/ 

.GLOBL lE^TRY 

, GLOBL vSU^.1T /*12JAM17* 

/ 
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476 


477 


47B 


479 


49 


4gl 


482 


4B3 


494 


495 


486 


487 


48B 


4B9 


490 


491 


492 


49 3 


494 


495 


496 


497 


49<^ 


499 


500 


501 


502 


50 3 



ViPS iOO GL3SAL DEFIMITIGNS 



/*12JAH12* 
/LP GL08ALS 
/*12JAH12* 

.^pp^'z LP15 

/I^^TERiMAL 

/ 

.GLOBl, LPi-JHn, LiPTRAN ,LPSTA ,LPWHO 

/ 

/EXTEH^iAL 

/ 

.GL08L LPBlM.bPOUT 

.GLOBL ^LJLP /*i2JAHi7^ 

/ 

.IFPNZ LP15,2 

/ 

/I^]TERNAL 

/ 

.GLOBL LP^H02,LPTRH2 

/ 

/EXTERI^AL - MULP 

/ 

.GLOBL LPBIN2,LP0UT2 

.GLOBL MULP2 /=^12JAH17* 

/ 

.EN DC 

/ 

.ENDC 

.tJEcr 



pagr: 17 
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GLDBAL OeFI^ITIO^JS 



504 
505 
506 
507 
508 
509 
510 
511 
512 
511 
514 
515 
516 
517 
51B 



/*12J4H12=^ 

/CARD READER GLOBALS 

/'^12JAH12* 

.IFPNZ CRYiK 

/ 

/iniEmkb 
/ 

.GLOBL CDrfHn.CDSTAT^COTRAN 

/ 

/KXTERNAL - NUCR 

/ 

.GLOBL CDBOUT 

.GLOBL MUCR 

/ 

.EMDC 



/'*«12JAH17* 
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^MEMQiMlC DSFIMXTIONS 



51Q 
520 
521 
522 
523 
524 
5?5 
526 
527 
528 
529 
530 
531 
532 
533 
53^ 
535 
536 
537 
538 
539 
5 40 
541 
542 
543 
544 
545 
546 
547 
54H 
549 
550 
551 
55 2 
553 
554 
555 
556 
557 
559 
S59 
560 
561 



.TITLE 
.EBREL 



^Ir^lEMOMlC DEFIHITTGNS 



100000 A 



000000 A 





0000 
00 

0000 
00 

0000 
() 000 

0000 
00 
0000 
0000 

0000 
0000 
000 
0000 

00 


on 00 
00 00 
0000 



01 
02 
03 
04 
05 
06 
07 
10 

u 

12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 



/ 
/ 

/SQBR 

/ 

/ 

/ 

CALL = 

/ 

/ 

ERROR 

/ 

/ 

/ 

ERR1 = 

ERR2 = 

£RR3 = 

ERR4 = 

ERR5 = 

ERR6 = 

ERR7 = 

ERRIO 

ERR 11 

ERR 12 

ERR13 

ERR14 

ERR15 

ERR16 

ERR17 

ERR20 

ERR21 

ERR22 

ERR23 

ERR24 

ERR25 

ERR26 

ERR27 

ERR30 

ERR 31 

ERR32 

ERR33 



OUTINE CALLS TO THE SEVERAL REENTRANT SUBROUTl'^iES ARE 
WGTED BY "CALL" IMSTEAD OF "JMS", ^AKIHG THE LISTING 
EASIER TO READ. 

JMS 



=000000 



/CAL USED FOR ERROR CALLS 



DEF^^JITIQMS FOR ERROR CALLS 



1 
2 

3 
4 
5 
6 
7 

= 10 
= 1 1 
= 12 
= 13 
= 14 
= 15 
= 16 
= 17 
= 20 
= 21 
= 22 
= 23 
= 24 
= 25 
= 26 
= 27 
= 30 
= 31 
= 32 
= 33 



/22. 23 A^O 26 DETECTED AT INTERRUPT LEVEL 
/AHD ARE IMVOKED IH A SPECIAL MANNER 



EJECT 
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NNSMQMIC DSPIf^lTIOMS 



562 
563 
564 
565 
566 
567 

56e 

569 
570 
571 
572 
673 
574 
575 
576 
577 
57S 

57 9 
590 
561 
5«2 

58 3 
584 
5B5 
586 
587 
588 
5B9 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
513 







/l^O f^lZ9.0'lHSTR 


6 4100 


A 


CLAC=641000 


660000 


A 


GAS=660000 
/ 

/COMSOLE TSLETYP 

/ 

/ MOTE: CO 

/ 

/ KEYBOARD 














700301 


A 


K.SP = 700301 


700312 


A 


KRB=700312 

/ PRIMTER 


700401 


A 


TSF=700401 


700402 


A 


TCF=700402 


700406 


A 


TLS=700406 

/ 

/PC05 PAPER TAPE 

/ 

RSF=70010l 






700101 


A 


700201 


A 


PSF=700201 

/ 

/CLOCK lOT'S 

/ 

CLSF=70000l 






700001 


A 


700004 


A 


CLOF=7O0O04 


7 0044 


A 


CLON=700044 

/ 

/RP DISKPACK lO'l 

/ 

DPRSA=:706312 






706312 


H 


706332 


A 


DPRSB=706332 


706341 


A 


DPSJ=706341 


706321 


A 


DPSA=706321 


706361 


A 


DPSE=706361 


706364 


A 


npWC=706364 


705344 


A 


DPCA=706344 


706304 


A 


DPLA=706304 


706464 


A 


DPLF=706464 


706301 


A 


DPSF=706301 


7 06 324 


A 


DPCS=706324 

/ 

/DECTAPE TOT'S 

/ 

DTXA=707544 






7 75 44 


A 


707545 


A 


DTLA=707545 


707552 


A 


DTRA=707552 


707561 


A 


DTEF=707561 


707572 


A 


OTRB=707572 


707601 


A 


DTDF=707601 


707541 


A 


DTCA=707541 

/ 

/RF15 DECDISK 10 







UCTJONS !^UT IMCLUDED IM MACRO'S PERMAMSNT SYMBOL TABLE 

/CLEAR ACCUMULATOR 



E lOT'S 

MSOLE TELETYPE IS OPERATED I-M HALF-DUPLEX MODE 



/SKIP IF KEYBOARD INTERRUPTING 
/READ KEYBOARD TO AC 10-17 

/SKIP IN PRINTER INTERRUPTING 

/CLEAR PRINTER FLAG TO STOP ITS INTERRUPT 

/LOAD PRIMTER BUFFER AMD PRINT 

STATIG^^ SKIP lOT'S 

/SKIP IF READER II^TERRUPTING 
/SKIP IF PUNCH INTERRUPTING 



/SKIP IF CLOCK INTERRUPTING 
/TfJRM CLOCK OFF 
/TURN CLOCK OH 

*12JAH8* 

/READ FUf^CTION REGISTER "A" TO AC 

/READ STATUS REGISTER "3" TO AC 

/SKIP IF "JOB DONE" INTERRUPTING 

/SKIP ON UNIT ATTENTIOM 

/SKIP IF "ERROR" INTERRUPTING 

/LOAD iftfORD COUVT REG FROM AC 

/LOAD CURREMT ADDRESS' REG FROM AC 

/LOAD CYLINDER, HEAD, AND SURFACE FROM A! 

/LOAD AC TO FUNCTION REG 0-7 AMD EXECUTE 

/SKIP ON ANY RP DISK FLAG 

/SET CONTROLLER TO P9«i£R CLEAR STATE 



/XOR AC IMTO 
/LOAD STATUS 



STATUS REGISTER "A" 



.rr 



AC 0-11 



REGISTER "A" FROM 
/READ STATUS REGISTER "A" INTO 
/SKIP IF "ERROR" INTERRUPTING 
/SKIP IF "DT JOB DOME" IMTERRUPTING 

/CLEAR STATUS REGISTER A 



UNULATOR 



r'S 



pfir^F 



20 



ai^PS lUO 



M'MSVIONIC DEFINITIG,NS 



614 
615 
6t6 
617 
618 
619 
6?0 
621 
622 
623 
624 
625 
626 
627 
62B 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 

63 9 
640 
641 
642 

64 3 
644 

6 -i-S 

646 
647 
64R 
649 
650 
651 
652 
653 
65^ 
655 
656 
657 

658 
659 
660 
661 
662 
663 
564 
665 



707001 
707021 
707022 
707062 
7 070 2 4 
707064 
7 7 41 
707042 
707044 
7072 2 
707242 
707262 



704401 A 

704412 A 

7 4404 A 

704421 A 

704422 A 
704424 A 



7 6 5 i > 1 A 



703501 A 



706721 A 



706701 A 



703201 A 



7 017 42 h 

700024 A 

7 0032 A 

701762 A 

701741 A 



/ 

OSSF=707001 

DSCC=707021 

DRAL=707022 

DRAH=707062 

DLAL=?07024 

DLAH=707064 

DSCF=707041 

DSFX=707042 

DSCM=7 0704 4 

DLOK=707202 

DSCD=707242 

DSRS=707262 

/ 

/DCOl LINE SCANNSR lOT'S 

/ 

SSF=704403 

SRR=704412 

SCti = 704404 

SSL=704421 



ib 



aA^ 



SLT=704422 
SCR=704424 

/ 

/LP15P LINEPRINTER SKIP XOT 

/ 

LPSF=7a6501 

/ 

/ 

/SECOND LlNepRINTeR 

/ 

LPSF. 2=703501 

/ 

/CR03B CARD READER SKIP lOT 

/ 

CRSi=706721 

/ 

/CR15 CARD READER SKIP lOT 

CRSKP=706701 

/ 

/ 

/POWER FAIL lOT 

/ 

PFSF=?03201 

/ 

,IFPtMZ XVNI 
MPEU=701742 
LDMM=700024 
RDM=v, = 700032 
RDCLK=701762 
MPSNE=701741 



/SKIP OiM RF15 I^JTERRUPTIMG 

/CLEAR DISK COf^lTROL AMD DISABLE "FREEZE" 

/"OR" APO INTO ACCUM 

/"OR" API ir^TO ACCUN 

/LOAD ACCIJM INTO APO 

/LOAD ACCUi^ INTO API 

/CLEAR FUMCTIOM REGISTER 

/XOR AC 15,16,17 INTO FUl^CTIO^' REGISTER 

/EXECUTE FUNCTION 

/"OR" SEGMENT ADDRESS^ IMTO ACCUM 

/CLEAR STATUS REGISTER 

/"OR" STATUS REGISTER ^ITH ACCU*^ 



/SKIP DM SCANNER INTERRUPTING 

/DISABLE SCANNER 

/STOP SCANNER kHD READ 

/SCAMMER LI^'E REGISTER 

/LOAD SELECTED TRAfMSMITTER LINE DATA 

/CLEAR SCANNER FLAG kno START 

/SCANNER AT PRESENT lim 



/SKIP ON DOME AiMO ERROR: 



/FOR SPECIAL SECOND LP 



/SKIP IF CR03B INTERRUPT 



/SKP IF CR15 IMTERRUPT 



/SKIP OM POWER LOW FLAG. 



/*12JAH15=«^ 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15=S= 



ENTER USER ^DOE 
LOAD n^ REGISTER FROM 
READ .M^1 REGISTER INTO 
READ XV.M CLOCK INTO At 
SKIP IF NSXM FLAG UP 
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^^eMONlC 0EF1N1T10^!S 



666 
667 

66B 



7017 44 A 
701764 A 



iV!PCNE = 701744 
i:pIH = 701764 

.ENOC 



/^12JhH15^ CLEAR NEX^I PbAG 

/*12JAH15* 

/*12JAH15=«= 



PAGE 

669 
670 
671 
672 
673 
674 
675 
676 
67? 
678 
67Q 
58 
681 
682 
69^ 
684 
685 
686 
687 
6SB 
6«9 
690 
691 
69? 
69 3 
694 
695 
696 

6 97 
698 
699 
700 
701 

7 02 
703 
704 
705 
7 06 
707 
709 
709 
710 
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MACRO OEPIiNJITIO'^S 

.TITLE ^^CRn OEPIMITIOMS 
/ 
/BLOCK TRANSFER AAC^O 

.OEFIN XFR,DEU,UMIT.A0DRpCORE,LNG,OIR,ReTRy 

JMS OEV 

/RETRY COUNT 
/tJMIT MUMBER 
/DEVICE ADDRESS 
/CORE BUFFER ADDRESS 
/LENGTH AS NEGATIVE /J . C . 

/READ 
/OR '^RITE 









"RETRY 










LAC 


U^IT 








LAC 


AODR 








LAC 


CORE 








LAC 


LNG 








.IFZEP 


OIR 








CLL 










.ENDC 










,IFPi^Z 


DIR 








SKPiCLL 










JN^P* 


CDBIN 








,EMDC 










,E^1DM 




00 


A 


R = 






1' 1 


A 


^ = 1 







/DESCRIPTinN OF COMSnLE S-'^ITCH USAGE: 

/ 

/ THE C0^5S0LE SWITCHES ARE USED BY THE OPERATOR TO DEMA^'D 

/ CERTAIN PUMCTIOMS OF THE MONITOR 

/ 

/S^IXCHES AND 1 (TOGETHER) SYSTEMATIC HALT 

/ 

/SWITCH 3 MAILBOX CALL ACTIVE 

/ 

/SWITCH 5 ENABLE XCOM 

/ 

/SWITCH 6 EMERGENCY HALT - mST SE Oi^JLY SWITCH ONi 

/ 

/SWITCH 12 ^^HEN 0, USE CONSOLE TELLY FOR MI^II-OOT 

/ iAJHF^' 1, USE AS HUMPS TER^I^fAL OR MONITOR 

/ 

/SWITCHES 13-17 O^LY EFFECTIVE »^HEM SWITCH 12 = 1 

/ IF 0, USE AS MUMPS TERi^INAL 

/ IF LEGAL LINE MU*^BER, MONITOR THAT LINE 

/ IF ILLEGST., (ise AS MUMPS TERMINAL 

/ IF SAMS AS CONSOLE LINE ?^UMBSR, USE AS ^UMPS 

/ TERMINAL. 
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INTERRUPT EMTRY A^iD REGISTER DEFIWITIO^IS 



711 
712 
713 
714 
715 
716 
71 7 
71R 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
7 30 
731 
732 
733 
7 34 
7 35 
736 
737 
738 
739 
7 40 
741 
742 
743 
7 44 
745 
746 
747 
748 
749 
7S0 
751 
752 
753 
754 
755 
756 
757 
75« 
759 
760 
761 
762 



00000 R 000000 A 

00 001 R 601046 R 

00002 R 601040 R 

00003 R 601042 R 
0004 R 601044 R 

00 05 H 0060 6 R 

00006 R A 



000007 A 



20 
021 
00022 
24 
2 5 



000010 A 

0000 U A 

000012 A 

00 013 A 



000014 A 

000015 A 

000016 A 

000017 A 



000020 A 



740040 
601036 

0017 7 7 
376000 



000022 
000023 
U00030 
00031 
000032 
000033 
000035 
0000 36 
000037 



.TITLE l^^TERRUPT EiMTRY AND REGISTER 
/INTERRfJPT ENTRY POIMT 


JNP FJTERIi 

J^^P GOBEG 

J^P GODMp 

J'^P GOSr^SAF 



OEPI^^ITIDMS 



SYSTAB 

.BLOCK 



/*12JAH12* 
/^12JAH12=i= 
/=^12JAH12^ 
/NO BUFFER 
/POINTER TO 



BOOTSTRAP EMTRY HERE TO START SYSTEM 
START-UP HERS FOR CRASH PROCEDURES 
START-UP HERE FOR CRASH PROCEDURES 
CLEAN UP, JUST XFR DABS AMD GET MUPAK 
SYSTEM TABLE 



12 



/ 

/LOCATION 7 IS CLOCK CELL 

/ 

R07 = 7 

/ 

/CELLS 10, 11, 12 AND 13 ARE '^OM-REEf^TRAMT SYSTEM CELLS 

/ 

R10=:10 

Rll=:ll 

K12=12 

R1 3=13 

/ 

/CELLS 

/ 

R14=14 

R15=15 

R16=16 

R17=17 

/ 

/ 

/CELL 20, THE "CAL" EMTRY 

/BUT IS PROCEDURALLY USED 



14, 15, 16 AND 17 ARE REEN'TRAMT, AMD ARE SAVED IM SWAPPING IMAGE 



PQIi^T, TS ALSO USED AS ReEN^RA^JT SCRATCH 
AS "ERROR" ENTRY POI'MT 



/ 

R20=20 

/ 



XFR. 1 

XFR. 2 

/ 

/VARIOUS 

/ 

R22=22 

R23=23 

R30=30 

R31=31 

R32=32 

R33=33 

R35=35 

R36=36 

R37=37 



XX 
JMP 

.BLOCK 
17 77 
376000 



GOERR 
2 



/*12JAH12=^ 
/22 A.MD 23 
/LITERALS 



GOERR MUST 3€ IN PAGE Oil! 



MAY 8E USED 3Y CR15 
FOR XFRDN 8D0T IN OF 



AS m AMD CA 



DATA CHAf^JNEL ADDRESSES 



/NEGATIVE i^ORD COUNT FOR DECTAPE 



/CORE AOOR. -1 
/NEGATIVE WORD 



FOR LP15 
COUNT FOR 



RF15 DISK 
/CORE ADDRESS -1 FOR RF15 DECDISK 



PkGZ 2 4 



MU^ps ioo 



INTERRUPr EIMTRY AND RSGISTSR DEFINITTOWS 



763 
764 

765 



00 026 R A 
00036 R llll^X A 
000 37 R 0000 37 R 



.BLOCK 
-37 



10 



/CURRENT ADDRESS FOR DECDISK 



ohnp 



25 
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API ADDRESS TABLH: 



7 66 
757 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
7B0 
781 
782 
78B 
784 
785 
7«6 
787 
788 
789 
790 
791 
792 
79 3 

79 4 
795 
796 
797 
798 
799 
800 
801 
802 

80 3 
804 
805 
806 
807 
808 
809 
810 

81 1 
812 
8} 5) 
8] 4 
815 
816 
817 



4 
00041 
00042 
4 3 


R 
R 
R 


101253 
101253 
101253 
10125 3 


R 
R 

R 
R 


O0044 


R 


12060 3 


R 



00045 R 1206 4 R 



00046 R 101253 R 

00047 R 101253 R 
onn50 R 120602 R 
00051 R 101324 R 



00052 R 101253 R 

00053 R 101253 R 
00 54 R 101253 R 



00055 R 101253 R 



^ 5 6 R 10125 3 R 



00057 


R 


101253 


R 


6 


P 


101253 


R 


061 


R 


101253 


R 


6 2 


P 


101253 


R 



00063 R 101253 R 



, TITLE 


API ADDRESS TA 


BLE 


.IFPMZ 


API 




JMS 


ILL INT 




JMS 


ILLIMT 




JMS 


XLLI^fT 




Ji^S 


ILLI^JT 




.IFPNZ 


DTA 




JMS* 


OTTRAM 


/DEC TAPE 


,eNDC 






.IFNOZ 


DTA 




JMS 


1LLI^JT 




.EN DC 






.IFPHZ 


HTA 




JMS* 


MTTRAW 


/MAG TAPE 


.EMDC 






.IFNOZ 


MTA 




JMS 


ILLIWT 




.EN DC 






JMS 


ILLIMT 




JMS 


ILLINT 




JMS* 


PTTRAN 


/PAPER TAPE READER 


jm 


GQCLOK 


/CLOCK 


.IFPNZ 


PFAIL 




JMS 


GOPF 


/POWER FAIL 


.ENDC 






.IFMOZ 


PFAIL 




JN!S 


ILLIMT 




.EfvDC 






JMS 


ILLIWT 


/PARITY 


J^S 


ILLIWT 


/VT15 


.IFPNZ 


CRXX 




JHS* 


COTRAN 


/CARD READER 


• ENDC 






.IFNOZ 


CBKK 




JMS 


ILLIWT 




.ENDC 






.IFPNZ 


LP 15 




J^S* 


LPTRAM 


/LINE PRII^TER 


.EtMDC 






.IFNOZ 


LP15 




JMS 


ILLIWT 




.ENDC 






J^S 


ILLIMT / A/D 




J^^S 


ILLIMT 


/0R99A/DB98A 


J^«S 


ILLI^^T 




JMS 


ILLICIT 


/DATA PHOtME (0P09A) 


.IFPNZ 


RF15 




JMS* 


RFTRA^' 


/<^F DISK 


.EMDC 






.IFNHZ 


RF15 




JMS 


ILLIMT 




.EMDC 
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A.Pt ADDRESS TABLE 



818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
8 30 
831 
8 32 
833 
834 
835 
836 
837 
838 
8 39 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851. 
852 
853 
854 
855 
856 
857 
85 8 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 



00064 P 120605 R 



00065 R 10125 3 R 

00066 R 101253 R 



00067 R 101253 R 



00070 R 101110 R 



OO0 71 R 101133 R 



7 2 R 10115 7 R 



00073 R 101203 R 



0O074 R 101227 R 



00075 R 101253 R 



.IFPiMZ 


RP 


J 'AS* 


RPTRAM 


.ENDC 




.IF^H^z 


RP 


JMS 


ILLlMT 


,EMDC 




JMS 


ILLIMT 


JMS 


ILLIMT 


.IFPNZ 


LP15.2 


JMS* 


LP2TR^5 


.E^DC 




.IFNOZ 


LP15,2 


JMS 


ILLINT 


.EMOC 




.IFPNZ 


DCOl 


JMS 


IMTSCO 


.ENDC 




.IFNDZ 


DCOl 


Jf^S 


ILLIMT 


.ENDC 




.IFPMZ 


DCOl-1 


JMS 


IMTSCl 


.ENDC 




.IFNOZ 


OCOl-l 


Jl^S 


ILLIMT 


.ENDC 




.IFPNZ 


OCOl-2 


JMS 


X*^TSC2 


.EN'DC 




.IFNOZ 


OCOl-2 


JNS 


ILLIMT 


.ENDC 




.IFPMZ 


OCOl-3 


JHS 


INTSC3 


• EMDC 




.IFNOZ 


0C01~3 


JMS 


ILLINT 


.ENDC 




.IFPNZ 


DCOl-4 


JMS 


T^}TSC4 


.ENDC 




.IF'^OZ 


OC01«4 


JMS 


ILLIMT 


.EMDC 




.IFPMZ 


DCOl-5 


J^^S 


INTSC5 


.EMDC 




.IFNOZ 


DCOl-5 


JMS 


ILLIMT 


.EWDC 




.IFPMZ 


OCOl-6 


JMS 


I^NiTSCe 



/*12JAH8* 
/RP DISK 

/tl2JAH8* 



/LIME PRIiMTER #2 



/SCAMNER #0 



/SCANNER #1 



/SCANNER 112 



/SCAMMSR #3 



/SCA^'^$eR #4 



/SCAMNER ffS 



/SCANNER #6 



PAGK 2 7 



M I j V! P S 100 



API ADDRESS TABLfeJ 



870 

871 
87? 
873 
874 
875 
876 
877 
878 
879 
880 



000 7 6 « 101253 R 



00077 R 101253 R 



• EN DC 

.IFMOZ OCOl-6 
JMS ILLIMT 

• ENOC 

.IFPMZ DCOl-7 

JMS IWTSC7 

,ENDC 

•IPMOZ DC 01 -7 

JNS ILUNT 

.ENDC 

• EtX'DC 



/SCANNER #7 



PAG5 28 



^'*UMPS 100 



MUPAK-^UMPS OVERLAP 



B81 










.TITLE 


:viaPAK-MUf^PS ov 


882 










/"MUPAK" INITIATES A DIvSK TRAM 


833 










/THEM TRANSFERS 


CONTROL TO AN 


884 










/ITSELF AT THES 


E SAME ADDRESSE 


B95 










/THE "^UPAK" CODE IS OVERv^RITT 


886 










/WHEN THE TRANSFER IS COMPLETE 


887 










/ERROS, CHECKSUMS. AND TRANSFE 


88R 










/PROCEDURE. 




989 










•IFPNZ 


RP 


890 


010 


K 


706341 


A 


XFRDN DPSJ 




891 


00) 01 


R 


741000 


A 


SKP 




892 


0010? 


R 


600105 


R 


JMP 


, + 3 


893 


010 3 


R 


706361 


A 


DPSE 




894 


00104 


f^. 


600100 


R 


J'^P 


.-4 


895 


00105 


R 


706332 


A 


DPRSB 




896 


00106 


R 


500024 


R 


AND 


XFR.l 


897 


00107 


R 


65 2000 


A 


L'ViQ 




898 


00110 


R. 


706312 


A 


DPRSA 




999 


00111 


P 


640710 


A 


ALS 


10 


90 


00112 


H 


5 0025 


R 


And 


XFR.2 


901 


001 1 3 


R 


640002 


A 


OMQ 




902 


00114 


R 


740200 


A 


SZA 




90 3 


00115 


R 


7 40040 


A 


HLT 




90 4 










.ENDC 




905 










.IFZEP 


RP 


906 










XFRON DSSF 




907 










MP 


.-1 


908 










OSRStlO 




909 










SPA 




910 










HLT 




911 










• EwOC 




912 










/CALCULATE THE 


CHECKSUM - CANiM 


913 










/MOTE: BY CONVE?^TIOM. "MlJPAK" 


914 










/ OF THE 


TRANSFER 1*^ THE 


915 


0116 


R 


735000 


A 


CLX 




916 


00117 


R 


707762 


A 


DBA 




917 


0120 


9 


750000 


A 


CLA 




918 


00121 


R 


350001 


A 


TAD 


1,X 


919 


00122 


R 


725001 


A 


AXS 


1 


920 


00173 


R 


600121 


R 


JMP 


.-2 


921 










/CHECKSUM IN ACCU^ - IT ^UST 8 


922 


0124 


U 


707764 


A • 


EBA 




923 


0125 


R 


7 40200 


A 


SZA 




924 


00126 


R 


740040 


A 


HLT 




925 










.IFPNZ 


RP 


926 


00127 


R 


134050 


E 


JMS* 


DABSXF 


927 


013 


R 


01 1000 


A 


011000 




928 










.EMDC 




929 










.IFZER 


RP 


9 30 










JMS^ 


DABSXF 


931 










2 




932 










.ENDC 





SRLAP 

SFER TO BRING "MUMPS" IMTO CORE, 

lOEKfTICAL SET OF CODE WITHIN 

S. AS THE TRANSFER PROGRESSES, 

EM i«IITH THIS "MUMPS" CODS,. 

, "iMUNPS" DETECTS IT, TESTS FOR 

RS CO^iTROL TO THE INITIALIZATION 



/*12JAH8'«' 






/IS JOB D0^4E? 




/NOT YET,,. 






/I'ES « 






/•..OR IS THERE AN 


ERROR? 


/MO... 






/STATUS REG 


B 




/GET RID OF 


JUMK 




/HOLD IN ^Q 






/STATUS REG 


A 





/OR BOTH TOGETHER 

/BAD TRANiSFER, AC HOLD STATUS BITS 

/IF MD RP, MOST BE OM DEDISK *12JAHB^ 
/IS TRANSFER COMPLETE? 
/?JOT YET... 
/LOAD STATUS REG 

/BAD TRANSFER, AC HOLDS STATUS BITS 

OT USE CORE LOCATIONS 
HAS LEFT THE POSITIVE ^ORD COUNT 
Lr^IT REGISTER 

/USE INDEX MODE 

/THIS IMSTRUCTIOra MUST BE 151 PAGE Olll 



E ZERO! 

/RETURM TO BANK MODE 

/BAD CHECKSUM--AC i^ILL CONTAIN CHECKSUM DIFFERENCE 

/'♦=12JAH8* 

/*12JAH12^ 

/READ UNIT WITHOUT INTERRUPT 

/*12JAH8't= 

/*12JAH12* 

/READ i^ITHOUT INTERRUPT 



PAGE 79 MOMps 100 ^ICiP AK-V![jvips OVERLAP 

93^ 00131 R 634041 E J!APt BSGln 



/♦12JAH121' 



PAGE 3 



MilMPS 



J 00 



PARTITION SNAPPING l^AGE 



934 
935 
936 
937 

93 9 
939 
940 

94 i 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 

95 3 
954 
955 
«^56 
95 7 
958 
959 
960 
961 
962 
963 
9b4 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 

975 
976 
977 
978 



00132 K 000000 A 

00133 H 000000 A 
0134 R A 
(> 1 3 5 K 000 00 A 



001 36 
00137 
014 
0141 
00142 
00143 

014 4 
00145 

001 46 
014 7 
1 5 
00151 



000000 

000000 
00 0000 
000000 
00 000 
00 0000 
00000 
000000 
000000 
00 
00 



00152 


R 


000000 


A 






000015 


A 


015 3 


R 


0000 00 


A 


00154 


R 


00000 


A 



.TITLE PARTITIGNI SWAPPr-iG IMAGE 
/ 

/PARAViETERS AND POI^JTfsRS FOR RU^M^IIMG PARTITION , 
/ 
/ 

/THESe ARE ADDRESS PQI^TGRS INfTj THE ACTIVE PARTITION!, 
/THESE ARE NOT SAVED AS PART OF THE SWAPPING I^AGE 
/SINCE THAT WOULQ EAT UP STORAGE li^i THE PARTITION, A^O 
/IT IS EASY ENOUGH TO CO'^lPUTE THEM EACH TIi^E THE PARTITION 
/IS SiMAPPED IN, 
/ 

/IMPORTANT! illi 

/ "AVAR" THROHGH "EVAR" MUST APPEAR IM SA^IE ORDER AS "VBLOCK" VARIABLES 

/ 
/ 
/ 

BUFFI /POIMTER TO THE DIRECT COMMAf^D BUFFER 

BUFF2 /POINTER TO THE STRIiMG ACCUMULATOR 

BUFF /POINTER TO THE PROGRAM BUFFER 

SY^lBOr /POI^iTER TO THE END OF THE USER OEFINED SYMBOLS 

/ 

/FRON^ HERE DOWN TO , 

/ 

AVAR /OECTAPE POSITIONf VARIABLE 

KVAR /KEY 

PVAR /PAGE VARIABLE 

MVAR /HARQIH VARI6LE 

FVAR /FORMAT (RIGHT -viARGIN) VARIABLE 

IVAR b /I/O DEVICE VARIABLE 

WVAR /iAJATCH OOG (TINED READ) VARIABLE 

LVAR /CURRANT STEP 

SVAR /STORAGE - CHARACTERS OF ROOM LEFT 

TVAR /TIME CIM SEC. SIMCE MIOrvITE/i 00) 

XVAR /CHARACTER POSITIONS (I>M I/O LI^E) 

YVAR /LIME POSITION IN PAGE 

.IFDEF K88GFU 
BVAR /FUMCTION VARIABLE FOR DCOl 

.ENOC 
EVAR /BREAK CONTROL SWITCH 

/ OOWM TO HERE ARE "SYSVAR" NUMBER OF SYSTEM VARIABLES 

/ 

SYSVAR=EVAR-AVAR+1 

SYMEND /USED FOR HAMG TIMER 

PRTEND /USED FOR %W TIDIER 

.EJECT 



PAGE 31 MU^^PS 100 PARTITION Sv^kPPlHG IMAGE 

979 /Swapping image starts here 

9B0 /variables 

981 / 

982 /FRON! HERE DOvyN TO , 

983 / 

9R4 00155 R 000000 A PC /NOTE- PC AND AC "^UST 3€ THE FIRST 

9B5 00156 R 000000 A AC /LOCATIONS OF BOTH THE SWAPPIMG IMAGE 

986 /AND THE ACTUAL PARTITIO^^, 

9R7 00157 H 000000 A MO 

9eB 001 6Cf R 000000 A XR 

9R9 00161 R 000000 A LR 

990 /DEXlO 

991 /DEX13 

992 /DEX14 /THESE ARE TREATED AS COMMENTS HERE, SI'^'CE 

993 /DEX15 /THEY OCCUPY REAL CELLS ELSEWHERE. 

994 /DEX16 /HO^^EVER. IN THE ACTUAL PARTITION THERE 

995 /DEXU /ARE 7 CELLS, APPEARING in THE ORDER SHONN 

996 /ERR20 /TO HOLD THEM OURIMG S*flJAPOUT, 

997 / OO^N TO HERE ARE 14(0CTAL) HARD REGISTERS 

998 / 

999 000014 A REGS=14 
10 / 

1001 / 

1002 /hHD FROM HERE DO^n TO 

1003 00162 R 000000 A PRiSlCPV /PRINCIPLE DEVICE - LIME # SIGMED IM ON 

1004 00163 R 000000 A liSiPUT /CONTAINS JMP IMTAS + DEV 

1005 00164 R 000000 A OUTPUT /CONTAINS OUTTAB+DEV 

1006 00165 « 000000 A STACK /COWTAIMS TOP OF STACK-1 POIMTER 

1007 00166 R 000000 A SPOINT /CURREWT STACK POIWTER 

1008 00167 R 000000 A £1*40 /POINTER TO THE END OF THE PROGRAM BUFFER 

1009 00170 R 000000 A SYMBEG /AODR - 6EGINMING OF SYM80L TABLE 

1010 00171 R 000000 A OBP^fT /"OLD" I.E. LAST, BLOCK READ 

1011 00172 R 000000 A ^RTSW /««IRITE SI<^"ITCH - IF NON-ZERO, "PERSONAL" BUFFER 

1012 /MUST BE WRITTEN OUT 

1013 00173 R 000000 A Si^iPCMT /SWAP COUNT - NUMBER OF TINES SWAPPED OUT 

1014 00174 R 000000 A CLKCNT /CPU USAGE COUNT 

1015 00175 R 000000 A WRTCNT /NUMBER OF DATA BASE VIRITES (AS BLOCKS) 

1016 00176 R 000000 A RDCNT /NUMBER OF BLOCK READS 

1017 00177 R 000000 A SY^^ /COUNT OF LEVELS OF FORS 

1018 ^0200 R 000000 a SCRIP 

1019 00201 R 000000 A SAVPRD /ACCUMULATOR SAVE DURING XPRODA 

1020 00202 R 000000 A TEMP 

1021 00203 R 000000 A FORTST 

1022 00204 R 000000 A SYMS 

1023 00205 R 000000 A SCRIPS 

1024 0O206 R 000000 A LOC /POINTER INTO STEP BUFFER 

1025 no207 P 000000 A VAL 

T026 .IFP\'Z ^''ONEY 

1027 00210 R 741000 A NONYSw SKP /NOP=SM USING SYMBOL TABLE, SKP=OTHER 

102B .ENDC 

1029 .IFPNZ F^^ONEY 

1030 00211 R 000000 A VALF /F.P. ARG LEGALITY INDICATOR? ILL, 1 LEGAL 



PAG? 32 



^HIMPS 100 



PARTITION S>IAPPING I^HGE 



10 31 


212 


R 


000000 


A 


FLOAT 





/SA EM 


1032 












.E 


MOC 


1033 


00213 


R 


000000 


A 


OFLAG 







1034 


214 


R 


000000 


A 


M 







1035 


00215 


R 


000000 


A 


SUM 







1036 


002)6 


R 


000000 


A 


TERM 







1037 


00217 


R 


000000 


A 


ACTEMP 







1038 


00220 


R 


oouooo 


A 


IPOInX 







1039 


00221 


R 


000000 


A 


IPLACE 







1040 


00222 


R 


000000 


A 


OPQIi>iT 







1041 


00223 


R 


000000 


A 


OPLACE 





"^O 1 ■ 


1042 


00224 


R 


00 0000 


A 


TEMPI 





1043 


00225 


R 


000000 


A 


POINl'l 





1044 


00226 


R 


000000 


A 


PLACE! 





%'^' 


1045 


00227 


R 


000000 


A 


TEMP2 





1046 


00230 


R 


0000 


A 


P0INX2 





^ \ 


1047 


00231 


R 


000000 


A 


PLACE2 







10 48 


00232 


R 


000000 


A 


esuN 







1049 


00233 


R 


000000 


A 


BTER?'! 







1050 


00234 


H 


000000 


A 


BVAL 







1051 


00235 


P 


000000 


A 


FORVAR 







1052 


00236 


R 


00 0000 


A 


PROG 







1053 


00237 


R 


000000 


A 


PUSER 







1054 


00240 


R 


000000 


A 


ID 







1055 


00241 


R 


000000 


A 


USER 







1056 


00242 


R 


000000 


A 


BKCHAR 







1057 


00243 


R 


000000 


A 


Tl 







105^ 


00244 


R 





A 


T2 







1059 


00245 


P 


000000 


A 


T3 







1060 


00246 


R 


00 0000 


A - 


IFSWT 







1061 


2 47 


K 


000000 


A 


GUN If 







1062 


0025& 


R 


000000 


A 


BUM IT 







1063 


0251 


R 


00 0000 


A 


GBLKHl 







1064 


00252 


R 


00000 


A 


GHI 







1065 


L'S 00253 
00254 


R 


000000 


A 


GHEAD 







1066 


R 


00 0000 


A 


GSYMBOL 







1067 


00255 


R 


000000 


A 


GHDOLD 







1068 










/ 


• • • 


DOWN 


1069 






000074 


A 


VARNUM= 


GHOOLD-PR'^iCOV + 1 


1070 












.E 


JFCT 



/SA zm.Kt LEGALITY INDICATOR? ILL, 1 LEGAL 



/SPECIAL $Q FLAG 



/INPUT CHARACTER POINTER 

/*12JAH14* CHAR POSITIOM WITHIN WORD 
/OUTPUT CHARACTER POINTER 

/*i2JAH14* CHAR POSITIOM ^a/ITHIM WORD 



/*12JAH14=i^ CHAR POSITIOM WITHI^^J WORD 



/*12JAH14* CHAR POSITIOM i^ITHIM 'w'ORD 



/FOR VARIABLE 

/CURREiMT PROGRAM FnIAME 

/USER U^DER «HICH THE CURRENT PR0GRAP4 IS FILED 

/SIGM IN PROGRAM 

/SIGN IN USER 

/PDIi^TER TO "FOR" VARIABLE'S VALUE 
/"FOR" I^JCREME■'^jT 
/"FOR" TeRMIfM'ATOR 
/RESULT OF LAST "IF" 0=FALSE 
/UMIT OF "NEXT" ACCESS 
/UNIT # OF BLOCK IN PARTITION! 
/BLOCK ON THIS LEVEL WITH THE ^OST ROON 
/HOW MUCH ROO*^ IN G8LKHI 
/HEAD BLOCK OF CURRENT GLOBAL LEVEL 
/ADDR -5 if^ORD BLOCK OF CURRENfT GLOBAL IM GTABLE 
/HEAD BLOCK OF PREVIOUS GLOBAL LEVEL 
TO HERE ARE "VARNUM" NUMBER OF REENTRANT ^VARIABLES 



PAGE 3 3 



HUMps 100 



PARTITION SWAPPING mhQE 



1071 
1072 
107 3 
10 7 4 
1075 
1076 
1077 
1079 
1079 
1080 
1 « 1 
1082 
1083 
1084 
J. 9 5 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1 09B 
1099 
1 100 
1101 
1102 
110 3 
1104 
1 105 
1106 
1107 



00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 



00277 
00300 




60 
00 
6 

60 
00 
6 3 

A A 

U 'j 

61 

00 
61 

00 
61 

00 
00 

00 



(.' 
631 3 
0000 
6313 
0000 
6313 
0000 
4161 
000 
oil 3 
0000 
0152 
0000 
0410 
0000 
0000 
0000 



777361 





000056 A 

000057 A 

000061 A 

000174 A 



XReLl 

XRELI 

XRSLl 

XOISLOP 

XGASS 

XGSYM 



/ 

/SUBROUTl^iES 

/FRON HERE DQ^n TO ... 
BOOLb 

JMP 
BOOLE 

JMP 

BOOLG 

JMP 
DISLOP 

JMP* 
GASS 

JMP 
GSYH 

JMP 
GLOBAL 

JMP 
PTENPX 
PBOOLX 
PRDCNTX 

/ 

SUBNUMr56 

.IFPMZ OTA 
SUBNU^4=:SUBNUM+1 

.£NDC 

.IFPNZ MODIFY 
SUBMU.M = SLrBNUM + 2 

.ENDC 
/ 
SwAPSZ = ReGS + VARNa'^-»-3 + SUBfMUM 



«> • « « 



/RELATIOMAL ENTRY TO XBQOL 

/RELATIONAL ENTRY TO XBOOL 

/RELATIONAL ENTRY TO XBOOL 

/tl2JAH12* CALL & OVERLAY COHMAMD DISPATCHER 

/ASSE.^BLE GLOBAL MAME 




llZim\/i 



. . DOWM TO HERE ARE 

REENTRANT SUBROUTINE EMTRY POINTS 



/*12JAH17* 
/'»^12JAH17* 
/*12JAH17* 



/*12JAfil7=^ 
/*12JAH17* 
/*12JAH17'^ 
/*12JAH17* 
/*12JAK171= 
/*12JAH17'^ 
/*12JAH17* 



/'i'UJAHO* TOTAL CELLS IN Si^AP AREA 
/tl2JAH12^ 3 CELLS IM MUMPSB 

USABLE O'SWAPSZ-BLOCK-COMBOFF-STRACC-PERNSY 

P 

/ lAjHICH IS DUMBER OF WORDS AVAILABLE FOR PROGRAM AND USER 

/ SYMBOL TABLES 
.EJECT 







x;g£^/G V 



PAGK 34 



N^UMPS 100 



PARTITION SNAPPING I'^AGE 



1108 
1109 
1110 

nil 

1112 
1113 

n 1 4 

1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
U2S 
1129 
11 ^0 
1131 
U32 
1133 
113 4 
113 5 
1136 
1 1 3 7 
1138 



3 01 
3 2 
00 30 3 
00304 

00305 
00306 
30 7 
00310 
00311 
0A31? 

00313 
00314 
00315 
00 31 6 
00317 
00320 
00321 
00322 
00323 
00324 
00325 
00326 





000000 
000000 
0000 00 
00 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



*R 
*R 
*R 
*R 
*R 
*R 
*R 
*R 

^ K 
*R 
*R 
*R 
*R 
*R 
*R 
*R 
*R 
*R 



/STATUS TABLE 

/ 

/BIT 

/BIT I 

/BIT 2 

/BIT 3 

/BIT 4 

/BIT 5 

/BIT 6 IF 1. 

/BIT 7 

/BIT 8 

/ 

/BIT 9 



- QHE S'inRD FOR EACH PARTITION 

1 = INDEPEN0ENT, O^OEPENDE^iT 
^40T CURRENTLY USED 
DITTO 
IQIf^JT 

CORRt>ITLY UMUSED 
DITTO 
iv^AGTAPK HAMG 

USED FOR %W VIDLiATIONf 

IF 1, JOB IH TRAMSITIOM (SIGfJING ON OR OFF) 

IF 1, JOB in PRIORITY STATE 



/ 

/FOLLOWING 8 BITS ARE "HAWG BITS" 

/ 

MOT USED 

IF 1, CRXX HANG 



/BIT 10 

/BIT U 

/ 

/BIT 12 IF 1 

/BIT 13 IF 1 

/BIT 14 IF 1 

/ 

/BIT 15 IF 1 

/BIT 16 IF I 

/BIT 17 IF 1 

/ 

/NOTE - IF ALL BITS ARP: ZERO, PARTITION IS FREE 

/ 

.REPT PRTf^fJN 
ST ATI 



LP15 HANG 
OECTAPE HAfvlG 
PAPER TAPE HAMG 

DCOl SCANNER HAK!G 

CLOCK HANG (E.G. HANG .05) 

RIIMMABLE 



PAGE 35 



^iUMPS 100 



PARTITION SWAPPING IMAGE 



1139 



00327 R 000000 A *R 

00 3 30 R 0003 30 R ST ATX 



PAGP 36 



M U ^^ P S 1 it 



l^^PUT/DUrPQT TABLES 



1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
lJ4ft 
1149 
1150 











/ 

/D 

/ 










/C 
/ 
/ 
/ 


00331 


R 


000331 


R 


WH 


00332 


R 


000000 


A 


TT 


00333 


R 


000000 


A 


*R 


00 3 34 


R 


000000 


A 


*R 


00335 


R 


000000 


A 


*R 


00336 


R 


000000 


A 


^R 


00337 


R 


000000 


A 


'i^R 


00340 


R 


000000 


A 


*R 


00341 


R 


000000 


A 


*R 


00342 


R 


0000 00 


A 


*R 


00 34 3 


R 


000000 


A 


4;R 


00 344 


R 


000000 


A 


*R 


00345 


R 


000000 


A 


*R 


00346 


R 


OOOOOO 


a 


*R 


00347 


R 


000000 


A 


^R 


00 350 


y 


OOOOOO 


A 


*R 


00 351 


R 


OOOOOO 


A 


*R 


00352 


R 


OOOOOO 


A 


*R 


00353 


R 


OOOOOO 


A 


*R 


00354 


R 


OOOOOO 


A 


*R 


00355 


R 


OOOOOO 


A 


*R 


00356 


R 


OOOOOO 


A 


*R 


00357 


R 


OOOOOO 


A 


>?R 


00360 


R 


OOOOOO 


A 


^R 


0036J 


R 


OOOOOO 


A 


*R 


00362 


R 


OOOOOO 


A 


^R 


00363 


R 


OOOOOO 


A 


^R 


364 


R 


OOOOOO 


A 


*R 


00365 


R 


OOOOOO 


A 


*R 


00366 


R 


OOOOOO 


A 


*R 


00367 


R 


OOOOOO 


A 


^R 


3 7 


R 


OOOOOO 


A 


*R 


00371 


R 


OOOOOO 


A 


^R 


00372 


R 


OOOOOO 


A 


*R 


00373 


R 


OOOOOO 


a 


*R 


00374 


R 


OOOOOO 


A 


^R 


00375 


R 


OOOOOO 


A 


=*:R 


00376 


o 


OOOOOO 


A 


*R 


3 7 7 


p 


OOOOOO 


A 


*R 


00400 


R 


OOOOOO 


A 


*R 


04 01 


R 


OOOOOO 


A 


*R 


4 2 


R 


OOOOOO 


A 


*R 



.TITLE I^JPUT/DUTPUT TABLES 

eviCE oa^nership table 

ELLS ARE ON A Q^iE-Tn-0^'E CORRSSPOMOENCE WITH DEVICE -^UvtBER 

IF CELL=0 , MDT IM USE 

IF CELL :MOf'^-ZFRO , DEVICE IS IN USE, A^O CONTENTS 
OF CELL = ADDRESS OF OWNER'S STATUS ^ORO 
9TAB 

.REPT HU^hT 





1151 



.IFPNZ OTA 
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MU^PS 100 



XMPUT/DUi'PUT TABLES 



US? 
115 3 

1154 
1155 
1156 
1157 
1 158 
1159 
1160 
1161 
116? 
1163 
1164 
1165 
1166 
1167 
1168 
1 169 
1170 
1171 



.REPT 
00403 ft OnOOOO A DT^HOl 
1)0 404 ^ 00000 A *R 



OTA 



00405 '< OOUOOO A 



00406 R 000000 A 



00407 R 000000 A 

00410 9 000000 A *R 

00411 R 000000 A *R 

00412 R 000000 A *R 

00413 R 000000 A *R 



.£NDC 
PTAiHO 

.TFP^JZ LP 1.5 
LPWHO 

.ENDC 

.IFPNZ LP35,2 
LP.MHG2 

.ENDC 

.IFPNZ CRXX 
CDi^HO 

.KNDC 

• IFPNZ ^ATh 

.REPT MTA 
MTwHOl 

.EMDC 

.IFPNZ DUMMY 

.REPT OU^MY 





/ftiUNBER OF TRANSPORTS' 



/OWLY ONE PAPER TAPE STATION ALLOi^EO 



117 2 
1173 



.ENDC 
•EJECT 



9AGK 38 



^^UMPS 100 



INPUT/OUrPUT TABLES 



117 4 
1175 
1176 



1177 
1178 
U7Q 

1180 
1181 
11B2 
115^3 
1184 











/OUTPUT 


DISPATCI 

.REPT 


H TABLE 
^UMAT 


00414 


R 


634156 


E 


OUTTAB 


JN'^P^t: 


TRIM 


00415 


R 


634156 


e 


*R 






0416 


p 


634156 


E 


*R 






00417 


R 


634156 


ti. 


*R 






00420 


R 


634156 


E 


*R 






00421 


R 


634156 


E 


*R 






00422 


R 


634156 


E 


^R 






00423 


R 


634156 


E 


t=R 






00424 


R 


634156 


E 


*R 






00425 


R 


634156 


'E 


*R 






00426 


R 


634156 


E 


^R 






00427 


R 


634156 


E 


*R 






00430 


R 


634156 


E 


*R 






4 31 


R 


634156 


E 


*R 






00432 


R 


634156 


E 


*R 






004 3 3 


R 


634156 


E 


*R 






00434 


R 


6 34156 




*R 






00435 


K 


634156 


E 


*R 






00436 


R 


634156 


E 


*R 






4 3 7 


R 


634156 


E 


*R 






00440 


R 


634156 


E 


*R 






00441 


R 


634156 


E 


^R 






00442 


R 


634156 


£ 


*R 






00443 


R 


634156 


E 


*R 






00444 


R 


634156 


E 


*R 






00445 


R 


634156 


E 


*R 






00446 


R 


634156 


E 


♦ R 






0O447 


R 


634156 


E 


*R 






00450 


R 


634156 


E 


*R 






4 51 


R 


634156 


E 


*R 






00452 


R 


634156 


E 


*R 






n0453 


R 


634156 


E 


*R 






00454 


R 


634156 


E 


*R 






00455 


R 


634156 


E 


*R 






00456 


R 


634156 


E 


*R 






00457 


R 


634156 


E 


^R 






00460 


R 


634156 


E 


*R 






00461 


R 


634156 


R 


*R 






00452 


R 


634156 


E 


*R 






00463 


R 


634156 


E; 


*R 






00464 


R 


634156 


E 


*R 


.IFPMZ 
.REPT 


DTA 
DTA 


00465 


R 


634065 


E 




Jivsp* 


DTOUT 


00466 


R 


634065 


E 


*R 


.E^^DC 




00467 


R 


634143 


E 




JMP* 
.lEPNZ 

JMp4^ 

,Ei\!DC 


PTPIM 

LP15 

LP6IM 
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MU^^PS 100 



IMPUT/OUXPUT TABLES 



11 B5 
1196 
1187 
11«8 
1189 
1 190 
1191 
119? 
1193 
1194 
1 195 
1196 
1197 



1193 
1199 



00^70 R 634126 E 



4 71 


R 


000027 


A 




00472 


R 


000027 


A 


*R. 


4 7 3 


P 


000027 


A 


^R 


00474 


R 


000027 


A 


*R 


0O475 


R 


000027 


A 


*R 



.IFP^IZ 


bP15.2 


JMP* 


LPBIM2 


,ENDC 




.IFPMZ 


CRXX 


ERR27 




.EMDC 




.IFPNZ 


MTA 


.REPT 


■^TA, 


JHP* 


HTPUT 


.ENDC 




.IFPMZ 


DUMMY 


.REPT 


DUMMY 


ERR27 





.ENDC 
.EJECT 



/"lOERR" -^HEM ATTE'MPTING OUTPUT TO CR 



/"lOSRR" OM OUTPUTS TO DUMS^IES 



PA: 



40 



MUMPS 100 



IWPUT/OUTPUT TABLES 



1200 
1201 
1202 



120 3 
1204 
1205 

120S 
1207 
120B 
1209 
1210 



00476 
00477 
05 
0501 
00502 
5 3 
00504 
00 5 5 
00506 
00507 
00510 
0051 ) 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 
5 2 5 
00526 
005 2 7 
00530 
00531 
00532 
00533 
0534 
005 35 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 



00547 
00550 



K 

R 

ft 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

P 

R 

R 6 

R 6 

R 6 

R 6 



R 6 

R 6 

R 6 

R 6 

R 6 

R 6 



R 6 

R 6 



34117 
34117 
34117 
34117 
34117 
343 17 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
341 17 
34117 
34117 
3 4117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
341 17 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
34117 
341 17 






/INPUT DISPATCH TABLE 

,REPT MUM AT 

IMTAB JNP* K80UT 



00551 R 634145 S 



F. 
E "^ 

t. ^ 

E ^ 

£ * 

E * 

E ^ 

E * 
E * 

S * 
E 

E 
E 
E 
E 
E 
E 



E ^ 



34063 e 
34063 E *i 



.IFPiMZ OTA 
.REOT OTA 
JMP* OTIM 



/MUM3ER OF DECTAPE TRANSPORTS 



.EMOC 

JMP* 

.IFPMZ 

ERR27 

.EMDC 



P TROUT 
LP15 



/"lOERR" mEH ATTEMPTING INPUT FROM LP 



AGE 41 



MfjMpS J 00 



INPUT/OUTPUT TABLES 



1211 

i:?j2 

121 B 
1214 
1215 
1216 
1217 
121*^ 
1219 
1220 
1221 
1222 

122 3 



00552 R 634125 E 



00553 R 000027 A 

0055 4 R 0027 A *R 

00555 R 000027 A ^R 

00556 R 000027 A *R 

00557 R 000027 A *R 



.IFPNZ 


LP15,2 


s:rr27 




• ENDC 




.IFPNZ 


CRXX 


JMP* 


CO BOUT 


.ENDC 




.IFPNZ 


MTA 


.REPT 


^TA 


JMP* 


MTGET 


.ENDC 




.IFPMZ 


0UNf'4Y 


.REPT 


DU^MY 


CRR27 





/"lOSRR" 0^! I^'PUTS FROM DUi^MIES 



122 4 



.ENDC 
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1225 
1226 
1227 
1228 
1229 
1230 
1231 
12 32 
1233 
1234 
1235 
12 36 
1237 
12 38 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
125B 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1 268 
1269 
1270 
127 1 
1272 
127 3 
1274 
1275 
1276 



n/itlMPS 


100 


SYSTEM TAB! 


:.E 


00560 


R 


000000 


A 


INTAC 


■ 


00561 


R 


000000 


A 


INTf^lQ 





00562 


R 


000000 


A 


lUTK 





00563 


R 


000000 


A 


INTL 





0564 


R 


000000 


A 


lOTMP 





00565 


R 


000000 


A 


SCOUNT 





00566 


R 


000000 


A 


STE'^^P 





00567 


R 


000000 


A 


STEMP2 





00570 


R 


000000 


k 


EMERG 





00571 


R 


000000 


A 


SLPCNT 






00572 R 000000 A 

00573 R 000000 A 

00574 R 000000 A 

00575 R 000000 A 

00576 R 000000 A 

00577 P 000000 A 

00600 R nneb a 

00601 R 000000 A 

00602 R 740040 A 

00603 R 740040 a 

00604 R 740040 A 



00605 R 740040 A 



KEEP20 

/ 

ODTSv'i 

NiOMTTif 

COMSW 

DSKACT 

OSKCNT 

PRVDKA 

PTTRAi^ 

DTTRAN 



TITLE SYSTEM TABLE kHO PARAM.ETERS 

/AC FRm INTERRUPT 
/m FRO^ INTERRUPT 
/X REG FRON INTERRUPT 
/LIMIT REG FROM INTERRUPT 
/TEHP. VAR FOR 10 ROUTINES WITH LMT 

/TEMP VAR FOR SLPCHK R3UTINE 



OFF-"!^UST 8E 11^ PAGE Oil 



SLPT*^.? 











-OCOUMT 



,IFPNZ API 

XX 

,IFPNZ OTA 

XX 

.E'^DC 

.IFPNZ MTA 

XX 

.ENDC 

.IFPNZ RF15 

XX 

.Ef^DC 

,IFPMZ RP 

XX 

.E^DC 

.IFPNZ LP15 

XX 

.EHDC 

,IFPiMZ LP15.2 

XX 

.EMDC 

•IFPNZ CRXX 

XX 

.EN DC 

.ENOC 



/*12JAH10* EMERGENCY Sa'ITCH (6) 

/COmT OF SECQMOS SIMCE. LAST 

/%i^/,CLOCK HANG UPDATE 

/PTR TO PARTITION STATUS i^ORD 

/0=OFF, 1=0M 

/*12JAH10* 0=OFF, 1=0N 

/TEMPORARY FOR R20 



INDICATOR 

/*12JAH17=^ 

/=*=i2JAHi7* 

/^UJAHUI^ 

/=«^12.JAH17* 

/*12JAH15* 



/CONSOLE TELLY S^^ITCH: = MONITOR, HQU-O DOT 
/NUMBER OF TELLY BEING MONITORED *1000 
/CHARACTER STATUS SWITCH FOR COiMSOLE TELLY 
/BLOCK OWMERSHIP SWITCH 

/COUNT OF CONSECUTI\/S DISK ACCESSES BY Slf^GLE USER 
/LAST Oi^'NER OF OSKACT 



/*12JAH8'«= 



MTIRAN 
RFTRAN 
RPTRAM 
LPTRAN 
LP2TRN 
CDTRA^i 

/ 

/THE SYSTEM TABLE -- SYSTA8 

/ 

/THIS TABLE IS POINTED TO BY LOCATIOf^ 5 

/THE TABLE CONTAINS BASIC SYSTE'^-I INFO, STATUS IMFO ABOUT 



PAGF: 43 Nil^^PS 100 SYSTEM TABLE AMD PARAMETERS 

1277 /I/O DEVICES, AND POINTERS TO VARIOUS SYSTEM TABLES. 

1278 / 

1279 / 

1280 000606 R SYSTAB=. 
12 81 / 

12B2 00&06 R 000000 A .lORS /PROCESSOR STATUS ^ORO 

t2R.B 00607 R 000000 h ACSwR /CURRENT SETTING OF CONSOLE St'd ' S 

1284 00610 R 000000 A ACSWRX /XCOM THIS SPOT TO IMTERMALLY CLEAR OUT AH AC SWITCH, 

1285 00611 R 26bl61 A SYSID .SIXBT 'VUAia?' /SYSTEM VERSION # 
00612 R 010000 A 

12 9 6 / 

12B7 /ERROR STATUS FOR RFi5 DISK SYSTEM UPDATE ON EVERY 

1288 /ERROR DETECTED BY THE RF15 CONTROLLER 

1 2 8 Q / 

1290 00613 R 000000 A RFSTAT /STATUS REGISTER 

1291 00614 R 000000 A RFADRO /DISK ADDRESS -- APO 

1292 0061"^ R 000000 A RFADRl /DISK ADDRESS -- API 

1293 00616 R 000000 A RFERRS /ERROR COUNT 

1294 / 

1295 /SIAlUS AND ERROR STATUS FOR RP15 DISK SYSTE«^ 
12Q6 / 

1297 00617 R 000000 a RPSTAT /STATUS REG "A" 

1298 / 

129^ /FOLLOWING LOCATIGMS ONLY UPDATED OH ERRRORS 

1300 / 

1301 00620 R 000000 A RPDRV /STATUS "A" (UNIT # IM D-2) 

1302 00621 R 000000 A RPERST /STATUS "B" 

1303 00622 H uuOOOO A RPADDR /DISK ADDRESS CLY IN 0-7 

1304 /HEAD IH 8-12 SEC IM 14-17 

1305 00623 R 000000 A RPERRS //ERROR COUNT 

1306 / 

1307 /DEC-TAPE ERROR STATUS 

1308 / 

1309 00624 R 000000 A DTERRA /STATUS REG "A" (U^^IT IN 0*2) 

1310 00625 R 000000 A DTERRB /STATUS REG "B" 

1311 00626 R 000000 A DTERRS /ERROR COUNT 

1312 / 

1313 /MAG-TAPE ERROR STATUS 

1314 / 

1315 00627 R OOOOOO A NTSTAT /MAG TAPE STAUS /^ITH UMIT # 15-17 

1316 00630 R OOOOOO A MTERRS /ERRROR COUNT 

1317 / 

1318 /MAG-TAPE DRIVE STATUS UPDATED OM EVERY OPERATION TO THAT DRIVE 
131^ / 

1320 00631 R OOOOOO A HTUNl /DRIVE 1 

1321 00632 R OOOOOO A MTUM2 

1322 0^633 R OOOOOO A ■MTUM3 

1323 00634 R OOOOOO A MTU^J4 

1324 00535 R OOOOOO A ^TUUb 

1325 00636 R OOOOOO A MTUM6 

1326 00637 R OOOOOO A MTUM? 

1327 00640 R OOOOOO A MTUN8 
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MUMPS 100 



SYSTEM T^BLE AND PARAMETERS 



1328 
1329 
1330 
1331 
1 332 
1333 
1334 
13 33 
1336 
1337 
133B 
1339 
1340 
1341 
1342 
1343 
1344 
13 45 
1346 
1347 
1 34R 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
135B 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1 366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1379 
1379 



006 41 9 000000 A 
064? R 000000 A 
00643 R 000000 A 



00644 
00645 
00646 
00647 
00650 
00651 
00652 



000000 
000000 
000301 
000027 
0003 31 
000063 




00674 
00675 
00676 
00677 
f> 7 
00701 
00702 
00703 
00704 



oooooo 

000155 

oooooo 

2114 
1 7 
014142 
000132 

000015 
OOOOOO 



00653 R OOOOOO k 

00654 R OOOOOO A 

00655 R OOOOOO A 
--00656 R OOOOOO A 

00657 R OOOOOO A 

00660 R OOOOOO A 

00661 R OOOOOO A 

00662 R OOOOOO A 
0066 3 R 7 7777 7 A 

00664 R OOOOOO A 

00665 R 777777 A 



00656 R OOOOOO A 

00667 R OOOOOO A 

00670 R OOOOOO A 

00671 R OOOOOO A 
0672 R OOOOOO A 
00673 R OOOOOO A 



/ 

/STATUS rfORDS FOR 
/WHICH ARE UPDATE 
/ 









CARD HEADER, 
ON E\fERY I/O 



AMD LINE PRINTERS 
OPERATIO^i 



CDSTAT 

LPSTA 

LPSTA2 

/ 

/SYSTEM, 

/ 

NOFLAG 

DKCHK 

JBSPTR 

•WHOPTR 

SWAPSW 



NBPf^I 

PRTNMB 

RUf^tvNB 

RUNDOWN 

PRTIDX 

PRTIN 

MO fa IT 

ACSWRO 

HLTS^^T 

HALTON 

USERS 



DTBUFF 

mtbuff 
qpncnt 

GBAD 

GCHANP 

DEGRAO 



/CARD 
/LINE 
/LIME 



READER 

PRIMTER 

PRINTER 



#1 

#2 



MTEOM 

SWIW 

DIRPXH 

PSIZt 

PSTART 

PLEWG 

SWPPTR 

SYSVNM 

DSKBFF 



IMFORNATIOM AMD POINTERS 





STATl 

PRTNUM 

WHGTA8 

OUTTAB-^HOTAB 





















-1 

BLOCK 

-1 





PC 



PRTSIZ 

l^^DTAB 

PASTAB 

8UFF1 

SYSVAR 





/COIJMT OF ILLEGAL INTERRUPTS 

/MUMBER OF CHKPMT ERRORS QU RETRIES 

/PTR TO JOB STATUS TABLE 

/# OF PARTITIOi^S IN SYSTEM 

/PTR TO THE W'HO TABLE 

/SIZE OF 'A'HOTAB 

/0= INHIBIT SWAPPING? 

/+= SWAPPABLE? 

/"1=SHCE OVERFLOW, S^^AP WHEM DONE 

/fMEXT BLOCK POI^^iTER 

/NEXT PARTITION TO RU^ 

/PARTITION DUMBER MOW RUNsSiING 

/COUNTER FOR "SWAPPED IN" TI^E 

/LAST USER 

/PARTITION Sv^APPED IM 

/PRTBEG-1, OR IF HO USER Si^APPED IH 

/CQWTENTS OF AC S'W. OR' ED WITH ACS«RX 

/SET TO ZERO BY AC SWITCHES WHEN DUMP TIME 

/BECOMES 1 i«HEM HALTER ENTERED 

/NUMBER OF USERS CURRENTLY ACTIVE 

/-I ON ENTRY FROM MUPAK SO IT CAN'T CLOSE 

/IMMEDIATELY IF YOU FORGOT TO CLEAR THE Sw'IT 

/INTIALIZEO TO ADDR OF 1ST DECTAPE BUFFER 

/iraiTIALIZED TO ADDR OF' 1ST MAGTAPE BUFFER 

/NUMBER OF GLOBALS OPEN 

SYSTEM B00-3O0S IN GARBAGE 

PTR TO GCHAIM IN DABS 

DEGARDED FLAG - SET NEGATIVE 

THE FOLLO^IMG: 

USER mf Fomo 



;hes 



/?\JUM6ER OF 
/*12JAH12* 
/DATA BASE 
/ON ONE OF 
/AT SIGf^OUT 



Ini 

m 



THE DIRE^ 
GARBAGE ! 



IN ALLOCATION 



/UMRECOVERABLE DISK SRRROR 

/O OFFSET IN GARBAGE CHAIN 

/MAPS PROBLEMS ENCOUMTERED 

/INTIALIZED TO POIl^T TO FLAG FOR MT EOMS 

/POINTER TO THE PARTITION SWAPPING IMAGE 

/*12JAH12* 1ST CORE BLOCK CFCB) # 

/DEFAULT PARTITION SIZE 

/PTR TO PARTITIO^J STARTING ADDR TABLE 

/PTR TO PARTITION LE?«IGTH TABLE 

/PTR TO PARTITION SNAPPING AREA 

/# OF SYSTEV! VARIABLES 

/DISK BUFFER OF CURREMT USER 



TORY 
OLLECT 



PA! 



45 



HU^IPS 100 



SYSTEM TABLe AND PAPAj^ETERS 



1580 
t38t 
1382 
13B3 
13h4 
1385 
1386 
1 387 
138^ 

138 9 
1390 
1 391 
1392 

139 3 
1394 
1395 
1396 
139 7 
1 39« 
1399 
1400 
1401 
1402 
1403 
1-10 4 
1405 
1406 
3 407 
140B 
1409 
1410 
1 4 1 1 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
141 9 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
14 31 



00705 
7 6 
7 7 
00710 
007} 1 
00712 
00713 
00714 
00715 
7 1 6 
00717 



R 00 
R 00 
R 
P 00 



00 
00 



P 00 
R 00 
P 00 
P 77 

R 00 
00 



00724 
7 25 
00726 
00727 
00730 
00731 
00732 
7 3 3 



000001 
000002 
000000 
000000 
0005 
00 0005 
777703 
014132 
0007 34 



0000 A 
0000 A 
0000 
000 
0074 
000 
000 3 A 
0000 A 
00 
7766 
0001 
0720 



00720 R 7400 00 A 



00721 P 7 77775 A 
007 22 R 000000 A 

0072 3 P 000000 A 



00 7 34 R 01412 3 6: 



000735 P 
00735 P 014130 Fl 



0007 36 P 
00 7 36 P 0141 35 f^ 



G6i^02 

DABSPT 

LMTBPr 

GBLTPT 

Nft/iGBL 

^iMPF 

NMPP 

PPTPIR 

CRFIL 

DSKPEP 

SUBDSK 

SUBQUE5: 



TI^ESL 
PPGDRT 











NOG 

RF15 

RP 





-DCOUNT 

SUB^1ERGE 

MOP 

• EMDC 

.IFNOZ 

SKP 

.SNOC 

-PERIOD 





/SYS 



/POINTER TO 2iNJD WORD OF USER'S DISK BUFFER 
/=?12JAH12* PTR TO "DA3S" IH ^^UBUFF 
/*12JAH12'^ PTR TO LINE TABLE 

/*12JAH12=<^ PTR TO GLOBAL TABLE C5 WO/GLOBAL) 
/# OF GLOBALS 
/# OF RF15 PLATTERS 
/# OF LOGICAL RP UNITS *12JAH84! 
/=?^12JAH12=t' PTR TO BEG. OF PARTITOl^S 
/'«=12JAH12* TER^. FILLER CHAR TABLE PTR 
/CONSECUTIVE DISK USE CDU^JT 
MA4AGER DESIRES ( 1 =SU8MERGED , 0=REGULAR) DISK 



SUBMERGE 



SUBMERGE 



BPi^'RlT PiAjRITE 



N M M. T 

N^DT 

NMLP 

NMCR 

H^DC 

NMDUM 

f^TOVFL 

STNUH2 

STMON^: 



STMUi>C = 



STWURP= 



^^TA 

DTA 

LP15+LP1 

CRXX 

OCOl 

DUMMY 

-MTCOL-2 

MUMPS2 

.IFPNZ 

.ENiDC 
.IFNOZ 
. 

.EMOC 

.IFPNZ 

MUDC 

• E^SDC 

.IFNOZ 



.ENDC 

.IFPMZ 
MUPP 

.ENDC 

.IFNOZ 



.EiNiDC 



5.2 



f^ONEY 



^OK'EY 



DC 01 



OCOl 



RP 



RP 



/TIME SLICE LENGTH (IN CLOCK 
/0=GL08ALS ONLY SPAN BUFFER 
/DIRECTORIES, XCOM BLCOKS SPA 
/O OR N'EG=BUFFER POOL rviMEDI 
/ + = BUFFER POOL DELAYED '^RITE 
/NUMBER OF MAGTAPES IN SYSTE 
/NUMBER OF DECTAPES I M SYSTE 
/MUNBER OF LI^iE PRINTERS IN 
/WUMBER OF CARD READERS IN S 
/NUMBER OF DCOl'S IN SYSTEM 
/TNiUMBER OF DUMNY DEVICES IN 
/MT INPUT CHAR LINE OVERFLOW 
/STARTING ADDRESS OF MUMPS2 



/STARTING ADDRESS OF HONEY 



TICKS 
PDOL,0 
N BUFF 
ATS ^R 

TO 01 
V! 
M 

SYSTEM 
YSTE^? 

SYSTEM 
LIMIT 



2'S COMPL.) 
THER=GLOBALS, PROGRAMS, 
ER POOL 
ITE TO DISK /%12JAH16* 



SK /*12JAH6* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/=t'12JAH17* 
/H'12JAH17* 
/*12JAH17=t= 
/*12JAH17t 
/'f'lajAHU* 
/*12JAH1?* 
/*12JAm7* 
/*12JAH17=«^ 
/*12JAH17* 
/*12JAH17=i= 
/*12JAH17* 
/*12JAH17* 
/^UJAHIT'J' 

/*12JAH17'J= 
/*12JAH17* 
/=«'12JAH17* 
/=«'12JAH17* 
/*12JAH17* 
/♦12JAH17* 
/*12JAH17* 
/*12JAH17'^ 
/*12JAH17=«= 
/*12JAH17* 
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1432 000737 R STMURF=, /1=12JAH17* 

1433 .IFPMZ RF15 /=f=12JAH17'^ 

1434 HURF /*12JAH17* 

1435 .ENDC /*12JAH17* 

1436 .IFNOZ RF15 /*12JAH17* 

1437 00737 R 000000 A /4:12JAH17=^ 
1433 .EMDC /tl2JAH17* 

1439 000740 R STMUy!T=, /*12JAH17* 

1440 .IFPNZ '^TA /*12JAH17* 

1441 00740 R 014133 E ^UMT /*12JAH17* 

1442 .ENDC /=t^l2JAH17'^ 

1443 .IFNOZ ^^TA /*12JAH17* 

1444 /*12JAH17* 

1445 .ENDC /*12JAH17=«^ 
1445 000741 R STMULP=. /*12JAH17=r 

1447 .IFPMZ LP15 /*12JAH17^ 

1448 MULP /*12JAH17=«^ 

1449 .EMDC /*12JAH17* 

1450 .IFNOZ LP15 /1=12JAH17* 

1451 00741 R 000000 A /*12JAH17'i= 

1452 ,FNDC /^12JAH17* 

1453 000742 « STM[,P2 = . /^12JhHn^ 

1454 .IP'PNfZ LP15,2 /*12JhHn^ 

1455 *^ULP2 /=t=12JAH17* 

1456 •E^JDC /*12JAH17* 

1457 .IFNOZ LP15.2 /*12JAH17* 
145R no742 R 000000 A /^12JAH17* 
1^59 .ENOC /*12JArtl7* 

1460 00743 R 01^134 E STMlfPT MUPT /*12JAH17* 

1461 000744 R STMUDTr, /*12JAH17* 

1462 .IFPNZ DTA /'«=1 2 JAHl 7=^ 
146 3 007 44 R 014131 E ^^UDT . /*12JAH17* 

1464 .ENOC /*12JAH17* 

1465 .IFi^OZ DTA /^12JAH17* 

1466 /*12JAH17* 

1467 .EHDC /*12JAH17* 

1468 000745 R STNUCRr, /*12JAH17* 

1469 .IFPNZ CRXX /*12JAH17* 

1470 MUCR /*12JAH17* 

1471 .EK'OC /*12JAH17* 
147? .IFNOZ CRXX /*12JAH171' 

1473 00745 R 000000 A /*12JAH17=«' 

1474 .ENOC /'«^12JAHi7* 

1475 00746 P 014121 E ST^^DMP ■MDUf^'P /=f=12JAH17* 

1476 00747 R 014127 E STVLIBF MU8UFF /*12JAH17=f= 
14 7 7 / 

1474^ .EJECT 
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1479 /THE VARIABLE BLOCK CVBLQCK) CONSISTS 3F PREDEFINED SYMBOLS i^'HlCH 

1480 /ARE PLACED DIRECTLY INTO THE SY^^BOL TA8LE AREA OF THE PARTITIOM 
1491 /WHEiHl THE USER SIG-^JS ON. 

1482 / ALL ENTRIES ARE INVARIA'MT EXCEPT THE DATE, vvHlICH IS 

14fi:^ /IMjriALIZED BY MUPAK. AND DAILY UPDATED BY CLOCK ROUTINE, 

1484 /MOTE: IF THE PARTITION IS ACTIVE '^HILE MIDiMIGHT OCCURS THE DATE 

1485 / WITHlrg THE PARTITION IS UPDATED f^HEH Sv^APPED IM, 

1486 / 

1487 /IMPORTANT! 1 • 1 I i i 
1ARR / THESE MUST APPEAR 1^1 THE SAME ORDER AS PARTITI3M 

1489 / ADDRESS PUIMTERS "AVAR" THROUGH "YVAR" 

1490 / 

1491 00750 ^ 000750 R VSLOCK , 

1492 /SOATE 
149^ 00751 R 701604 A 701604 /CSTRIMG - "$0" IM 5 BIT RIGHT ADJUSTED) 

1494 00752 R 000000 A /DATE IS FOUND l^J "DA3S" 

1495 00753 R 000000 A 

1496 00754 R 000000 A 
1497 

1499 00755 R 501641 A 501641 /(NUMBER - "%A" IW 5 8IT, R.A.) 

1499 00756 R 000000 A 
1500 

1501 00757 R 501653 A 501653 /(NUMBER - "%K" IH 5 BIT, R.A.) 

1502 00760 R 000000 A 
1503 

1504 00761 R 501660 A 501660 /(NUMBER - "%P" IN 5 3IT, R.A.) 

1505 00762 R 000000 A 000000 /O 
1506 

1507 00763 R 501655 A 501655 /(NUMBER - "%M" IM 5 BIT, R.A.) 

1508 00764 R 000000 A 
1509 

1510 00765 » 501646 A 501646 /(i^UMBER - "%F" IN 5 31T, R.A.) 

1511 00766 R 016660 A 016660 /76.00 
1512 

1513 00767 R 501651 A 501651 /(MU^BER - "%I" IN 5 SIT, R.A.) 

1514 00770 R 000000 A 
1515 

1516 00771 R 501667 A 501667 /(iMUMBER - "%^" in 5 BTT, R.A.) 

1517 00772 R 000074 A 

151 B 

1519 00773 R 501614 A 501614 /(MUMBER - "$L" IN 5 BIT, R.A.) 

1520 00774 R 000000 A 
1521 

1522 00775 ^ 501623 a 501623 /(MUMBER - "$S" IM 5 BIT, R.A.) 

1523 00776 R 000000 A 
1524 

1525 00777 R 501624 A 501624 /(MU^^BER - "$T" I^' 5 BIT, R.A.) 

1526 niOOO c> OOOOOO A /CLOCK IS FOUND I'\* "DABS** 
1527 
152B 01001 R 501630 A 501630 /(NUMBER - "$X" IM 5 BIT, R.A.) 

152 9 01002 R 000000 A 
1530 



701604 











/%ADDRESS 


501641 


000000 


/%KEY 


501653 





/%PAGE 


501660 


000000 


/%^ARGIM (LEFT iviARGlM) 


501655 


000000 


/%FORMAf (RIGHT MARGIN) 


501646 


016660 


/%IO"OEVICE 


501651 


000000 


/%^ATCBDOG 


501667 


%W NTIHER 


/SlOChTlOH 


501614 


000000 


/SSTORAGE 


501623 


000000 


/STIME 


501624 





/$X-AX1S 


501630 


000000 


/$Y"AXIS 
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1531 01003 R 501631 h 501631 /CNUf^SER - "$Y" lU 5 3IT, R.A.) 

1532 01004 R 000000 A 000000 

1533 .IFDEF K8BGFIJ 

1534 /%BUTTOM 

1535 501642 /(NUMBER - "%B» IH 5 SIT R.A,) 

1536 %B 000000 /(a'HATEVER R.A. IS ??) 
15 37 ,EMDC 

153H /%eRRGR 

1539 01005 R 501645 A 501645 /(NUM8ER - "%£" IN 5 BIT, R.A.) 

1540 01006 R 000000 A %E 

1541 001006 R VEMO=%E 

1542 / 

1543 /THE FOLLOWING CELL OF THE PARTITION HAS THE LABEL "SYMSMO" 

1544 / NHICH IS COMPUTED OURIMG SWAPIN 

1545 / 

1546 ////// /SYNEiMO POINTS HERE, PARTITION + ( PRTSIZE-2 ) 

1547 ////// THIS CELL ('^ITHI^I THE PARTITIOM) IS USED TO HOLD THE TIME 

1548 ////// HANG VALUE IN NEGATIVE SECONDS, AT THE SAHE TI.ME THE 

1549 ////// CLOCK HAMG STATUS BIT IS SET. 

1550 / 

1551 /THE FOLLOWT-MG CELL OF THE PARTITION HAS THE LABEL "PRTSMD" 

1552 / «HICH IS COMPCITED DURIf^G SWAPIN 

1553 / 

1554 ///// THIS CELL, WITHIf^ THE PARTITION!, IS USED 

1555 ///// TO HOLD THE %w| RUNDOWN VALUE IM NEGATIVE 

1556 ///// SeCOrJOS. at the SA,V!i^j TIME THE DCOl HAMG 

1557 ///// BIT IS SET lU THE PARTITIOrg STATUS WORD. 

1558 ///// THE CELL HAY CO'MTAliM A ZERO, IH 5^HICH CASE 

1559 ///// THERE IS NO TIMEOUT ON A READ 

1560 / 

1561 000041 A PERMSi = VEND-VBLOCK4-3 /MUMBER OF PERMANENT SYMBOL ^OROS 1^ PARTITION 

1562 .REPT PRT^4liM 

1563 01007 R 000000 A INOTAB /PARTITION STARTIMG AOORS, 

01010 H 000000 A *R 

01011 R 000000 A *R 

01012 R 000000 A tn 

0101 3 R 000000 A *R 

01014 R 000000 A *R 

01015 R 000000 A ^R 

01016 R 000000 A *R 

01017 R 000000 A *R 

01020 R 000000 A ^R 

01021 R 000000 A ^R 

01022 R 000000 A *R 

01023 R 000000 A =*=R 

01024 R 000000 A *R 
1025 R 000000 A *R 

01026 R 000000 A *R 

01027 R 000000 A *R 
0103n R 000000 A '•'R 

01031 R 000000 A *R 

01032 R 000000 A ^R 
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SYSTEM TABLE A ^M:> PARAMETERS 



01033 R 000000 4 *R 



1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 



01034 
01 035 
01036 
01037 
01 40 
01041 
01042 
010 4 3 
01044 
01045 



0000 00 
000000 
707764 
634070 
707764 
634041 
707764 
634056 
707764 
634154 



*R 



GOERR 



GOBEIG 



GOOMP 



GOSNAF 



EBA 




JMP* 


ERRORO 


EBA 




JMP* 


BSGin 


EBA 




JMP* 


O^P 


EBA 




JMP* 


S^MAFO 



/*12JAH12=«= 
/*12JAH12* 
/*12JAH12=^ 
/*12JAH12* 
/*12JAH12* 
/*12JAH12* 
/*12JAH12* 
/*12JAH12* 
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1572 
157B 
1574 
1575 
1576 
1577 
157R 
1579 
1580 
1581 
158 2 
1583 
1584 
1585 
1586 
1587 
I58B 
1589 
1590 
1591 
159? 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 

160 3 
1604 
3605 
1606 
1607 
1608 
1609 
1610 

161 1 
1612 
1613 

161 4 
1615 
1616 
1617 
161R 
1619 
16?0 
1621 
1622 

162 3 



MiJMPS 100 



I.>irE,RRUPr SKIP CHAINJ 

.TITLE INTERRUPT SKIP CHAIN 







001046 


R 


INTERU=. 

•IFPNZ 


API 


01046 


R 


705522 


A 


INTOFF 

.ENDC 




01047 


R 


707764 


A 


EBA 




01050 


R 


040560 


R 


OAC 


IMTAC 


01051 


R 


64100? 


A 


LACQ 




01052 


R 


040561 


R 


OAC 


INTNO 


01053 


R 


724000 


A 


PXA 




01054 


R 


040562 


R 


OAC 


IiMTX 


01055 


R 


730000 


A 


PLA 




01056 


R 


040563 


R 


OAC 

.IFN'OZ 
/ 

.IFPNZ 


IMTL 
API 










PFAIL 










PFSF 












SKP 












JHP 


PF 










.E^^iDC 





.IFPNZ CR03B 
/ 

/CR03B CARD READER 
/ 

CRSI 

SKPiCLL 

JMP* CDBIN 

.ENDC 

.IFPNZ DTA 
/ 

/DECTAPES 
/ 
INTOr DTEF 

SKP 

JMP* OTENTl 

OTOF 

SKPiCLL 

JMPI! DTEMT2 
DTSKPCr. 

.ENDC 

.IFPNZ RF15 
/ 

/RP'15/RS09 DECDISKS 
/ 

OSSF 

SKP 

JMP* RFFLAG 

.ENDC 

.IFPNZ RP 

DPSF 
/ 



/PO^^ER LOiV? 

/YES, HURRY UP A^D STDP 



/CARD OOiSiE, COL RDY, 3R ERR 



/RF JOB DONE OR ERROR 



/*12JAH8* 

/RP JOB DO-"^F OR ERROR (ALSO UNIT ATTN-- BUT SHOULDMT HAPPEN) 



i^AGE 51 NU^ 


PS 100 IsMTERHUPl SKIP CHA.Ii 


\! 


1624 


/RP MOVI.NiG HEAD 


DISKS *12JAH8* 


1625 


/ 




1626 


SKP 




1527 


JMP* 


RPFLAG 


1628 


• EMDC 




1629 


.IFPNZ i 


^'Vh 


1630 


MTSF=707341 




1631 


MTSF 




1632 


SKP 




1633 


JMp* 


le^TRY 


1634 


,EMDC 




1635 


/ 




1636 


/CLOCK 




1637 


/ 




1638 


CLSP 




1639 


SKP 




1640 


JfV!p 


CLOK 


1641 


/ 




1642 


/ 




1643 


.IFPNZ 


DCOl 


1644 


/ 




1645 


/DCOIEO LINE SCA-MnERS 


1646 


/ 




1647 


INTSC SSF 




1648 


JMP 


.+6 


1649 


SRR 




1650 


AND 


(7000 


1651 


JMS* 


TTSET 


1652 


SRR 




1653 


JMP* 


SCAMO 


1654 


.IFPMZ 


DCOl-1 


1655 


SSF+40 




1656 


JMP 


,f7 


1657 


SRR+40 




1658 


AND 


(7000 


1659 


XOR 


(10000 


1660 


JMS* 


TTSET 


1661 


SRR+40 




1662 


JMP* 


SCAMO 


166 3 


.IFPHZ 


DC01-5> 


1664 


SSF+100 




1665 


JMP 


.+7 


1666 


SRR+100 




1667 


A^D 


(7000 


166B 


XOR 


(20000 


1669 


JMS* 


TTSET 


1670 


SRR+100 




1671 


JMP* 


SCAMO 


1672 


.IFPNZ 


DCOl-3 


167 3 


SSF+140 




1674 


■ JMP 


.+7 


1675 


SRR+140 





/HOT SCAMPER 



/NOT SCANNER 1 



/NOT SCA^JNER 2 



/MOT SCANNER 3 



P4G5 

1676 
1677 
1678 
1679 
1680 
1681 
16B2 
1685 
16B4 
1685 
1686 
1687 
16B8 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
17 01 
1702 
1703 
1704 
1705 
1706 
1707 
170 9 
170<^ 
1710 
1 7 1 1 
1712 
1713 
1714 
1715 
1716 
1717 

1719 
1720 
1721 
1722 
172 3 
1724 
1725 
1726 
1727 



52 



MUMPS 100 



MTERRUPr 


SKIP CHAir 


\j 




AND 


(7000 




XOR 


(30000 




Jf^S* 


TTSET 




SRR+140 






JMP* 


SCAf^O 




.IFPNZ 


DCOl-4 




SSF+200 






J^P 


. + 7 




SRR+200 






AND 


(7000 




XOR 


(40000 




JiViS* 


TTSET 




SRR+200 






JMp^ 


SCA?I0 




.IFPNZ 


OCOl-5 




SSF+240 






JMP 


.+7 




SRR+240 






AND 


(7000 




XOR 


(50000 




JMS* 


TTSET 




SRRf240 






Jf^9^ 


SCANO 




.1FP^JZ 


OCOl-6 




SSFt300 






JMP 


.+7 




SRR+300 






AND 


(7000 




XOR 


(60000 




jm^ 


TTSET 




SRR+300 






JMP'J^ 


SCA^iO 




,IFPMZ 


OCOl-7 




• SSF-I-B40 






JMP 


.+7 




SRR+340 






AMD 


(7000 




XOR 


(70000 




JMS* 


TTSET 




SRRt340 






JMP* 


SCAMO 




.ENDC 






.ENDC 






.ENOC 






,ENDC 






.CNDC 






.E'MDC 






.ENOC 






.ENDC 




/ 






/ 







/MOT SCANNER 4 



/MOT SCAr^lNER 5 



/NOT SCANNER 6 



/Iv'OT SCAN'NER 7 



.ENDC 
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IMTERRUPT SKIP CHAIfSi 



172B 
1729 
1730 
1731 
173? 
1733 
1734 
1735 
1736 
1737 
173B 
17 '39 
1740 
1741 
1742 
1743 
17 44 
1745 
1746 
1747 
1748 
1749 
1750 
1 751 
1752 
1753 
1754 
1755 
1756 
1757 

i75e 

1759 
1760 
1761 
1762 
1763 
1764 
1765 
17 66 
1767 
176f? 
1769 
1770 
1771 
1772 
177 3 
1774 
1775 
1776 
1777 
177R 
1779 



0105 7 
01060 
01061 
010 6 2 
01063 
01 064 



700301 
741000 
601270 
700401 
741000 
601303 



01065 R 700201 A 

01066 R 745000 A 

01067 R 634144 E 



01070 R 701741 A 

01071 R 745000 A 

01072 R 601262 R 



/ 

/CONSOLS TELETYPE 

/ 

CTT KSF 

SKP 

JM? 

TSF 

SKP 

JMP 



DBKB 



/ 
/ 

/ 

/LP 



.08TP 
. IFNOZ API 
.IFPNZ LP15 



/LP DOME OR ERROR 



LPSF 

SKPICLL 

JMP1= LPOUT 

• ENOC 
/ 
/ 

/SECOND LINEPRIMTER 
/ 

.IFPNZ LP15.2 

LPSF, 2 

SKPiCLL 

J-^P* LP0UT2 

/ 

/CRi5 CARD READER 
/ 

.IFPMZ CR15 

CRSKP 

SKPiCLL 

JMP'«= CDBIM 

.EMDC 
/ 
IMTPTR RSF 

SKPICLL 

jMp* PTRI^« 

.ENOC 
/ 
/PTP 

PSF 

SKPICLL 

JMP'P PTPOUT 



/MON-eXlSTEMT f^EMQRy CHECK *12JAH15* 

.IFPMZ XVM /*12JAH15* 

MPSNE /*12JAH15* SKIP OH NSXM 

SKPiCLL /*12JAH15* MO ^JEXN 

JMP NEXMR /*12JAH15* GO GIVE ERROR 
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vfU^^PS 


100 


INTERRUPr SKIP CHAI 


M 






1780 












.ENDC 




/'>=12JAH15* 




1781 










/ 










1782 










/ 










178^ 










/ 










1784 










/ 










1785 


01073 


R 


440644 


R 


NFLAG 


ISZ 


iNiOFLAG 


/ILLEGAL INTERRUPT 




178b 


010 7 4 


R 


740000 


A 




NOP 




/IM CASE IflE OVERFLOW, 




1787 










/ 










1798 










/ 










1789 










/COMMOM 


INTERRUPT EXIT ROUTI^IE 


FOR ALL INTERRUPT SER\fICE 


PROGRAM? 


1790 


01075 


R 


200563 


R 


EXIT 


LAC 


INTL 






1791 


01076 


R 


722000 


A 




PAL 








1792 


01077 


R 


200562 


R 




LAC 


I'^JTX 






1793 


01100 


R 


721000 


A 




PAX 








1794 


OllOl 


R 


200561 


R 




LAC 


P^ITMQ 






1795 


01102 


R 


652000 


A 




LMQ 








1796 


1 1, 3 


R 


200560 


R 




LAC 


IMTAC 






1797 












.IFPNZ 


API 






1798 


01104 


R 


700042 


A 




ION 








1799 












.ENDC 








1800 


01105 


R 


705521 


A 




IMTON" 








IBOl 


0110 6 


R 


703344 


A 




D6R 








1802 


01107 


R 


620000 


A 




JMP^' 









190 3 










/ 










1804 












,IFPNZ 


API 






1805 












.IFPMZ 


DCOl 






1806 


01110 


R 


000000 


A 


ir4Tsco 











1807 


n u 


R 


705522 


A 




IN TOFF 








1808 


01112 


R 


707764 


A 




E3A 








1809 


1113 


R 


040560 


R 




DAC 


I^TAC 






1810 


01114 


R 


201110 


R 




LAC 


li^TSCO 






1811 


01115 


R 


040000 


A 




DAC 









1812 


01116 


R 


641002 


A 




LACQ 








1813 


01117 


R 


040561 


R 




DAC 


i^im 






1814 


01120 


R 


724000 


A 




PXA 








1815 


01121 


R 


040562 


R 




DAC 


IMTX 






1816 


01122 


R 


730000 


A 




PLA 








1817 


01123 


R 


040563 


R 




DAC 


IMTL 






1818 


01124 


R 


704401 


A 




SSF 








1819 


OU25 


R 


60107 3 


R 




JMP 


•^FLAG 






1820 


01126 


R 


704412 


A 




SRR 








1821 


01127 


R 


513636 


R 




A^MO 


(7000 






182 2 


01130 


R 


134157 


E 




JMS* 


TTSET 






1823 


01131 


R 


704412 


A 




SRR 








1824 


01132 


R 


634153 


E 




JMP* 


SCANO 






1825 












.ENDC 








1826 












.IFPNZ 


OCOl-1 






1827 


0113 3 


R 


000000 


A 


TNTSCl 











1828 


01134 


R 


705522 


A 




INTOFF 








1829 


01135 


R 


707764 


A 




EBA 








1830 


01136 


R 


040560 


R 




DAC 


IiNlTAC 






1831 


01137 


R 


201133 


R 




LAC 


I^MTSCl 
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MUMPS 


100 


INTI 


SRRLTPT SKIP CHAI! 


M 


1B32 


01140 


H 


040000 


k 


OAC 





1833 


01141 


R 


641002 


k 


LACQ 




18 34 


01142 


R 


040561 


R 


DAC 


INTNQ 


1835 


0114 3 


R 


724000 


k 


PXA 




1836 


01144 


R 


040562 


R 


DAC 


IHTX 


1837 


01145 


R 


730000 


A 


PLA 




18 38 


01 1 46 


R 


040563 


R 


DAC 


IMTL 


1839 


0J147 


R 


704441 


A 


SSF+40 




1840 


01150 


R 


601073 


R 


JNP 


MFLAG 


1841 


01151 


R 


704452 


A 


SRR+40 




1842 


01152 


R 


513636 


R 


AMD 


C7000 


1843 


01153 


R 


253637 


R 


XOR 


C 10000 


1844 


01154 


R 


134157 


E 


JMS* 


TTSET 


1845 


01155 


R 


704452 


A 


SRRf40 




1846 


01156 


R 


634153 


E 


JMPf' 


SCAMO 


1847 










.EMDC 




184B 










.IFPNZ 


DCOl-2 


13 49 


01157 


R 


000000 


A 


INrsC2 




1850 


01160 


R 


705522 


A 


INTQFF 




1851 


01161 


R 


707764 


A 


EBA 




185? 


01162 


R 


040560 


R 


DAC 


INTAC 


1853 


0116 3 


R 


201157 


R 


LAC 


T^JTSC2 


1854 


01164 


R 


040000 


A 


DAC 





1855 


01165 


R 


6 410 2 


A 


LACQ 




1856 


01166 


R 


040561 


R 


DAC 


II^THQ 


1857 


01167 


R 


7 2 4000 


A 


PXA 




1858 


01170 


R 


040562 


R 


DAC 


I^TX 


1859 


01171 


R 


730000 


A 


PLA 




1860 


01172 


R 


040563 


R 


DAC 


T'^TL 


1861 


01173 


R 


704501 


A 


SSF+100 




1862 


01174 


R 


601073 


H 


JMP 


NFLAG 


1863 


01175 


R 


704512 


A 


SRR+100 




1864 


01176 


R 


513636 


R 


AND 


(7000 


1865 


01177 


R 


253640 


R 


XOR 


(20000 


1866 


01200 


R 


134157 


E 


JMS=f= 


TTSET 


1867 


01201 


P 


704512 


A 


SRRtlOO 




1868 


01202 


R 


634153 


E 


JMP* 


SCANO 


1869 










• EN DC 




1870 










.IFPMZ 


DCOl-3 


1871 


01203 


R 


000000 


A 


IWT5C3 




1872 


01204 


R 


705522 


A 


INTOFF 




1873 


01205 


R 


707764 


A 


EBA 




1874 


01206 


R 


040560 


R 


DAC 


liMTAC 


1875 


01207 


R 


201203 


R 


LAC 


I^3TSC3 


1876 


01210 


R 


040000 


A 


OAC 





1877 


01211 


R 


641002 


A 


LACO 




1878 


01212 


R 


040561 


R 


DAC 


I^JTMQ 


1879 


0121 3 


R 


724000 


A 


PXA 




1880 


01214 


R 


040562 


R 


DAC 


IMTX 


1881 


01215 


R 


730000 


A 


PLA 




188? 


01216 


R 


040563 


R 


DAC 


INTL 


1883 


01217 


R 


704541 


A 


SSF+140 
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MIJNPS 


100 


INTERRUPT ! 


SKIP CHAXM 


1884 


01220 


R 


601073 


R 


JMP 


''JFLAG 


18B5 


01221 


R 


704552 


A 


SRR+140 




1886 


01222 


R 


513636 


R 


AMO 


C7000 


18R7 


01223 


R 


253641 


R 


XOR 


(30000 


1888 


01224 


R 


134157 


E 


JMS* 


TTSET 


1889 


01225 


R 


704552 


A 


SRR+140 




1890 


01226 


R 


634153 


E 


JHp:^ 


SCANO 


1891 










.ENOC 




1892 










.IFPNZ 


OCOl-4 


189B 


01227 


R 


000000 


A 1NTSC4 







1894 


01230 


R 


705522 


A 


INTOFF 




1895 


012 31 


n 

rv 


707764 


A 


EBA 




1896 


01232 


R 


040560 


R 


OAC ' 


IMTAC 


1897 


01233 


P 


201227 


R 


LAC 


I^MTSC4 


1898 


01234 


R 


040000 


A 


DAC 





1899 


01235 


R 


641002 


A 


LACQ 




1900 


01236 


R 


040561 


R 


OAC 


X^TMQ 


1901 


01237 


R 


7 24000 


A 


PXA 




1902 


01240 


R 


040562 


R 


OAC 


INTX 


190 3 


012 41 


R 


730000 


A 


PLA 




1904 


01242 


R 


040563 


R 


OAC 


I'MTL 


190 5 


01243 


R 


704601 


A 


SSF+200 




1906 


01244 


R 


601073 


R 


J.MP 


HFLAG 


1907 


01245 


R 


704612 


A 


SRR+200 




1908 


01246 


p 


513636 


R 


AiMD 


(7000 


190 9 


01247 


R 


253642 


R 


XOR 


(40000 


1910 


01250 


R 


134157 


E 


JMS* 


TTSET 


1911 


01251 


R 


7 4612 


A 


SRR+200 




191? 


012 5 2 


R 


634153 


E 


JMP^ 


SCANO 


1 9 1 i 










.EMDC 




1914 










.IFPNZ 


DC01~5 


1915 








If^TSCS 







1916 










IN TOFF 




1917 










EBA 




1918 










DAC 


I^TAC 


1919 










LAC 


INTSC5 


1920 










DAC 





1921 










LACQ 




1922 










DAC 


IMTMQ 


192 3 










PXA 




1924 










DAC 


I^ITX 


1925 










PLA 




1926 










OAC 


If^TL 


1927 










SSFf240 




1928 










Jl^P 


MFLAG 


1929 










SRR+240 




19 30 










AND 


(7000 


1931 










XOR 


(50000 


1932 










JMS* 


TTSET 


1933 










SRR+240 




1934 










JfAP^ 


SCAWO 


1935 










.ENDC 
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INTERRUPT SKIP CHAI=^ 



19^6 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
194R 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
!95B 
1959 
1960 
1961 
1962 
1963 

196 4 
1965 
1966 
1967 
196B 
1969 
1970 
1971 
1972 

197 3 
1974 
1975 
1976 
1977 
197B 
197 9 
1980 
1981 
198? 
1983 
1984 
19B5 
1986 
1987 



INTSC6 



IMTSC7 



012 5 3 
01254 
01255 
01256 
01257 
01260 
01261 



000 
705522 
440644 
740000 
705521 
7 3 34 4 
621253 



/ 

ILLINT 



.IFPNZ 



Is'^TOFF 

EBA 

OAC 

LAC 

DAC 

LACQ 

OAC 

PXA 

DAC 

PLA 

OAC 

SSF+300 

JM.P 

SRP+300 

AND 

XOR 

JMS* 

SRR+300 

.EiNfDC 

.IPPMZ 



iryXDFF 

EBA 

DAC 

LAC 

OAC 

LACQ 

OAC 

PXA 

DAC 

PLA 

DAC 

SSF+340 

JMP 

SRR+340 

AND 

XOP 

J'ViS* 

SRR+340 

JMP* 

.EMDC 



IN TOFF 

ISZ 

?^0P 

INTON 

DBR 

JMP* 



DCOl-6 

liMTAC 

IMTSC6 



IHTK 

IMTL 

IMF LAG 

C7000 

(60000 

TTSET 

sea NO 

OCOl-7 



INTAC 

INTSC7 



INTi^Q 

IWTX 

IMTL 

NFLAC 

(7000 

(70000 
TTSET 

SCANO 



NQFLAG 



ILLINT 



PAGE 58 Mijvips 100 IMTERRUPC SKIP CHAIM 

198B / 

1989 .ENOC 

1990 / 

1991 .IFPMZ PFAIL 

1992 .IFPNZ API 

1993 GOPF 

1994 INTOFF 

1995 ERA 

1996 DAC l^TAC 

1997 LAC GOPF 

1998 DAC 

1999 LACQ 

2000 DAC I^ITMQ 

2001 PXA 

2002 DAC I^^TX 

2003 PLA 

2004 DAC IMTL 

2005 PFSF /PDi^^ER LOW? 

2006 JMP N'FLAG 

2007 .ENDC 

2008 /POi^ER FAIL «- A*.^AIT THE TNEVrtABLE. 

2009 / 

2010 PF LAC (JMP RESTRT /SETUP LOC SIl^CE P3/\?SR UP WILL START 

2011 DAC /EXECUTION THERE. 

2012 JMP . /SIT AND WAIT 

2013 / 

2014 / 

2015 /POt^'ER FAIL -- ARISE THE PHOENIX 

2016 / 

2017 RESTRT EBA 

2018 DZM TMTAC /(INTAC USELE.SS TO US ^0^) 

2019 ISZ If^lTAC /DELAY TO ^AKE SURE WE'RE REALLY UP. 

2020 JHP .-1 

2021 CAF /MAKE SURE SYSTEM IS VERY QUIET. 

2022 .IFPMZ API 

2023 lOM 

2024 .ENDC 

2025 INTOM 

2026 JHP* HALTER /'«=12JAH12* TRY TO GET B'ACK TO MUPAK 

2027 .ENDC 
202B / 

2029 /PROCESS MON-EXISTEI^T MEMORY REFERENCE *12JAH15* 

2030 / 

2031 .IFPNZ XVM /*12JAH15* 

2032 01252 R 701744 A MEXMR HPCNE /*12JAH15* CLEAR MEXM FLAG 

2033 01263 R 703304 A OBK /*12JAH15* 

2034 01264 R 200000 A LAC /*12JAH15* FETCH IMT. ADOR 

2035 01265 R 705521 a TNTON /*12JAH15* 

2036 01266 R 040020 A DAC R20 /*12JAH15* SALT A^AY FOR PRINTOUT 

2037 01267 R 601036 R JMP GGERR /*12JAH15* GO TO ERR ROUTINE 
203B .ENDC /*12JAH15* 

2039 / 
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2040 


2041 


2042 


2043 


2044 


2045 


20^6 


2047 


204B 


2049 


2050 


2051 


2052 


2053 


2054 


2055 


2056 


2057 


2058 


2059 


2060 


2061 


2062 


2063 


2064 


2065 


2066 


2067 


206B 


2069 


2070 


2071 


2072 


2073 


2074 


2075 


2076 


2077 



m^PS 100 INTERRUPT SKIP CHAIIVF 



/ COOING TO MAKE CONSOLE TELLY LOOK LIKE k MUMPS TERMIMAL 
/ 



/v^HAT NfODE? 

/^12JAH12t USE AS ^I^I DOT 

/WHAT TELLY BEING ^OMITDREO? 

/HOHE IF ZERO 

/KB NOT USED DURING MONITOR 

/COMSOLE TELLY IS LAST TTY TERMINAL 

/GET INPUT CHAR 











/KEY8C 


}ARO 




01270 


R 


700312 


A 


,OBKB 


KRB 




01271 


R 


200574 


R 




LAC 


DDTSW 


01272 


R 


740200 


A 




SZA 




01273 


R 


634113 


E 




JHP^ 


HKBENT 


01274 


R 


200575 


R 




LAC 


^4 ON TTY 


01275 


R 


740200 


A 




SZA 




01276 


R 


601075 


R 




J^!P 


EXIT 


01277 


R 


213643 


R 




LAC 


(MUMTT^IOOO 


01300 


R 


134157 


E 




JMS* 


TTSET 


01301 


R 


700312 


A 




KRE 




01302 


R 


634153 


E 


/ 


JMP=^ 


SCAIMO 










/ 

/PRINTER 




01303 


R 


700402 


A 


/ 

.D3TP 


TCP 




01304 


R 


200574 


R 




LAC 


DDTSW 


01305 


R 


740200 


A 




SZA 




01306 


R 


634115 


E 




JMp=*' 


HTPE^JT 


01307 


R 


200575 


R 




LAC 


■MOiMTTY 


0131 


Q 


740200 


fl 




SZA 




01311 


R 


601315 


R 




JMP 


.DBTPl 


01312 


R 


213643 


R 




LAC 


(tNiUMTT*1000 


0131 3 


R 


134157 


E 




JMS* 


TTSET 


01314 


R 


634152 


E 




JNP* 


SCANCT 



/SHUT THE BEAST UP 
/v^HAT ^ODE? 

/*12JAH12* USE AS MIMI DDT 

/^HAT TELLY SEI^sG MONITORED? 

/SOMEBODY BEING MOMITORSD 
/CONSOLE TTY IS LAST TERMINAL? 
/AS IF READ IN FROM OCOl 
JMS* TTSET 
JNP* SCANCT 
/ 

/CONSOLE TELLY IS MONTTORT^G SOME USER 
/ 

01315 P 200576 R .DBTPl LAC COiMSW /^HAT IS STATUS OF LAST CHAR? 

01316 R 741100 A SPA 

01317 R 751001 A SKPICMAICLA /NEGATIVE - RESET TO 0, PERMISSION TO TLS 

01320 R 700406 A TLS /OUTPUT THIS CHAR 

01321 R 740001 A CNA /AMD RECORD THAT IT IS IN TRANSIT 

01322 R 040576 R DAC CQNSW /EITHER OR -1 AT THIS POINT 

01323 R 601075 R JMP EXIT 



PAGE oO MUMPS 100 CLOCK IMfERRUPT RESPONSE 

2078 , TITLE CLOCK IMTERRUPT RESPOMSE 

2079 .IFPMZ API 
20B0 
2081 
2092 
2093 
2084 
20B5 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 

2096 01343 R 200007 A LAC R07 /GET CLOCK CELL 

2097 

2098 01345 R 0405'S4 R DAC lOTMP /KEEP CLOCK + 1 TICK. 

2099 

2100 01347 R 040007 a DAC. R07 /RESET CLOCK CELL FOR 1 TICK 

2101 

2102 01351 R 200656 R LAC RUMDOl^M /GET COUNTER FOR S^APPED-IN Tl^e 

2103 01352 R 740300 A SZAISMA /ANY USER IM? 

2104 01353 R 601361 R JMP CLOKl /NO, MONITOR RUWMING 

2105 01354 R 200564 R LAC lOTNP /YES. 

2106 01355 R 300174 R ADD CLKCWT /UPDATE CPU COUNTER 
2107 
2108 
2109 
2110 

2111 01362 R 301531 R ADD SECOND /UPDATE Of^E SECOMD COUNTER 

2112 

2113 01364 R 741100 A SPA /AT OR PAST EMO-OF-SECOMD? 

2114 01365 R 601456 R JMP CLOCKl /MO. 
2115 

2116 01367 R 041531 R DAC SECOlVfD /RESET END-OF-SECOND TO -CLKHZ + 

2U7 /^lUMB€R OF TICKS THIS- SECOND 

2118 01370 R 234047 E LAC* CLOCK /TIME OF DAY 

2119 01371 R 740030 A lAC /PLUS 1 SECOND 

2120 01372 R 553644 R SAD (250600 /.DEC 86400(SECONDS PER DAY). 

2121 01373 R 754002 A CLA'STL /RESET TIME-OF-DAY, IF MIDNIGHT 
2122 

2123 01375 R 740200 A SZA /MIDNIGHT? 

2124 01376 R 601425 R JMP CL0CK6 /NO /*12JAH17* 
2125 



01324 


R 


000000 


A GO 


CLOK 




01325 


R 


705522 


a 


INTOFF 




01326 


R 


707764 


A 


EBA 




01327 


R 


040560 


R 


DAC 


IMTAC 


01330 


R 


201324 


R 


LAC 


GOCLOK 


01331 


R 


040000 


A 


DAC 





01332 


R 


641002 


A 


LACO 




013 3 3 


R 


040561 


R 


DAC 


INTNQ 


01334 


R 


724000 


A 


PXA 




01 335 


R 


040562 


R 


DAC 


INTX 


01336 


9 


730000 


A 


PLA 




01337 


R 


040563 


R 


DAC 


INTL 


01340 


R 


700001 


A 


CLSF 




01341 


R 


601073 


R 


JMP 
.FNDC 


HFLkG 


01342 


R 


700004 


A CLOK CLOF 




01343 


R 


200007 


A 


LAC 


R07 


01344 


R 


740030 


A 


lAC 




01345 


R 


040564 


R 


DAC 


lOTMP 


01346 


R 


754001 


A 


CLCICLL 




01347 


R 


040007 


a 


DAC, 


R07 


01350 


R 


700044 


A 


CLON 




01351 


R 


200656 


R 


LAC 


RUNDOl^M 


01352 


R 


740300 


A 


SZAISMA 




01353 


R 


601361 


R 


JMP 


CLOKl 


01354 


R 


200564 


R 


LAC 


lOTNP 


01 355 


R 


300174 


R 


ADD 


CLKCNT 


01356 


R 


040174 


R 


DAC 


CLKCWT 


01357 


R 


745100 


A 


SPAiCLL 




01360 


R 


140174 


R 


DZI^. 


CLKCNT 


01361 


R 


200564 


R CLOKl LAC 


TOTMP 


01362 


R 


301531 


R 


ADD 


SECOMD 


01363 


R 


041531 


R 


DAC 


SECOND 


01364 


R 


741100 


■A 


SPA 




01365 


R 


601456 


R 


JMP 


CLOCKl 


01366 


R 


723703 


A 


AAC 


-CLKHZ-1 


01367 


R 


041531 


R 


DAC 


SECOND 


01370 


R 


234047 


E 


LAC* 


CLOCK 


01371 


R 


740030 


A 


lAC 




01372 


R 


553644 


R 


SAD 


(250600 


01 37 3 


R 


754002 


A 


CLA'STL 




01374 


R 


074047 


E 


DAC* 


CLOCK 


01 375 


R 


740200 


A 


SZA 




01 376 


R 


601425 


R 


JMP 

.EJECT 


CL0CK6 
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100 


CLOCK IN 
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2126 










/MIONIG 


;ht 






2127 


01377 


R 


234053 


E 






LAC* 


DATE. 2 




212B 


01400 


R 


652000 


A 






LMQ 






2129 


01401 


R 


234052 


E 






LAC* 


OATE.l 




2130 


01402 


R 


660606 


A 






LLSS 


6 




2131 


01403 


R 


513645 


R 






hHD 


(7777 




2132 


01404 


R 


574124 


E 






SAD* 


^■IQMTH 




213 3 


01405 


R 


741000 


A 






SKP 






2134 


01406 


R 


601416 


R 






J MP 


CL0CK2 




2135 


01407 


R 


234052 


E 






LAC* 


DATE.l 




2136 


01410 


R 


513646 


R 






AND 


(777700 




2137 


01411 


R 


353647 


R 






TAD 


(160 




2138 


01412 


R 


074052 


£ 






OAC* 


OATE.l 




2139 


01413 


R 


213650 


R 






LAC 


(600000 




2140 


01414 


R 


074053 


e 






DAC* 


DATE. 2 




2141 


01415 


R 


174124 


E 






DZM* 


^■^OMTH 




2142 


01416 


R 


234053 


E 


CLOC 


K2 


LAC* 


DATE. 2 




2143 


01417 


R 


553651 


R 






SAD 


(710000 




2144 


01420 


R 


213652 


R 






LAC 


(570000 




2145 


01421 


R 


313637 


R 






ADD 


(10000 




2146 


01 422 


R 


074053 


E 






DAC* 


DATE. 2 




2147 


01423 


R 


553650 


R 






SAD 


(600000 




2148 


01424 


R 


474052 


E 






ISZ* 


OATE.l 




2149 


01425 


R 


440571 


R 


CLOC 


K.6 


ISZ 


SLPCHT 




2150 










/CHE 


CK 


ON DESIRED USE OF 


CGNSOLR 


2151 


01426 


R 


200607 


R 






LAC 


ACSWR 




2152 


01427 


R 


513653 


R 






AND 


(40 




2153 


01430 


P 


540574 


R 






SAD 


OOTSi^ 




2154 


01431 


R 


601441 


R 






JMP 


CLOCKS 




2155 


014 32 


R 


741200 


A 






SNA 






2156 


01433 


R 


700406 


h 






TLS 






2157 


014 3 4 


R 


213654 


R 






LAC 


(EXIT 




215B 


01435 


R 


074114 


£ 






DAC* 


HGUT 




2159 


01436 


R 


200607 


R 






LAC 


ACSWR 




2160 


01437 


R 


513653 


R 






AND 


(40 




2161 


01440 


R 


040574 


R 






DAC 


DDTSW 




2162 


01441 


R 


750200 


A 


CLOC 


K5 


SZAiCLA 






2153 


01442 


R 


601454 


R 






JMP 


CL0CK4 




2164 


01443 


R 


200607 


R 






LAC 


ACSWR 




2165 


01444 


R 


513655 


o 






AND 


(37 




2166 


01445 


R 


652000 


A 






LMQ 






2167 


01446 


R 


353656 


R 






TAD 


(»NUNAT 




2168 


01447 


R 


755100 


A 






SPAiCLA 


ICLL 




2169 


01450 


R 


641002 


A 






LACQ 






2170 


01451 


R 


640711 


A 






ALS 


11 




2171 


01452 


R 


540575 


R 






SAD 


^GNTTY 




2172 


01453 


R 


601456 


R 






JMP 


CLOCK! 




2173 


01454 


R 


140576 


R 


CLOC 


K4 


DZ*^ 


CONSW 




2174 


01455 


R 


040575 


R 






OAC 


*40iSiTTY 




2175 


01456 


R 


200610 


R 


CLOC 


Kl 


LAC 


ACSi/^RX 


/UPDATE 


2176 


01457 


R 


740004 


A 






OAS 






2177 


01460 


R 


040562 


R 






OAC 


ACS^RU 





/YES, CHECK IF LAST DAY OF MONTH 



/NOT LAST DAY. 
/LAST DAY 

/ADD 1 TO MONTH 



/SET DAY TO ZERO 

/CLEAR MQMTH AS FLAG TO M.UPAK 



/SET DAY = DAY+l 

/IMC. FIRST DIGIT OF DATE IF MECESSARY 
/INDICATE A SECOND HAS PASSED /*12JAH17* 
TELLY 

/40 - SWITCH 12 

/AMY CHANGE IN ODT SWITCH? 

/MO, same' as BEFORE. 

/LEAVING ODT? 

/YES, GENERATE FLAG 

/YES, JUST CHAMGED--IMSIJRE AGAIiMST 

/*12JAH12* TELEPRINTER IMT CRASH IN ODT 

/SETUP ODTSW. 

/NON-ZERO = HINI-DDT ; 0=:MUMPS OR l^OMITOR 



/37 - GET TERNI'>IAL NUMBER 



/POSITION FOR COMPARE IH DCOl ROUTINE 
/SAME AS LAST TIME 

SYSTAB ENTRIES 
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MUMPS 100 



CL3CK INThlRRUPT RESPONSE 



2t?8 
2179 
2180 
2181 
2182 
2181 
21«4 
21?^S 
2186 
21B7 
218B 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2 20 2 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 



01461 R 750004 A 

01462 R 040607 R 

01463 R 700314 A 

01464 R 040606 R 

01465 R 200656 R 



01466 
01467 



741100 A 
440656 R 



01470 R 601075 R 

01471 R 200652 R 



01472 
01473 



01474 R 



750201 A 
601476 R 
040652 R 



01475 R 601075 R 



01476 
01477 
01500 
01501 
01502 
01503 



703304 
200601 
540654 
741000 
601504 
200716 
040600 
001504 



01505 
01506 
015 7 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
015 2 2 
01523 



200562 
721000 
200563 
722000 
200561 
652000 
200000 
513657 
553660 
601523 
200560 
040156 
200000 
601545 
200560 



01504 R 703304 4 



01524 K 040156 R 

01525 R 200000 A 

01526 R 513661 R 

01527 R 241533 R 
01530 R 601545 R 



LAS 




OAC 


ACSWR 


lORS 




DAC 


• lORS 


LAC 


RUNDOWN 


SPA 




ISZ 


RUNDOWN 


JMP 


SKIT 


LAC 


SWAPSH 


SZAICLC 




JMP 


CLKH?^G 


DAC 


SW4PSW 



JMP 
/ 

DBK=703304 

CLKHNG LAC 
SAO 
SKP 
JMP 
LAC 
DAC 

MUSEOKr. 

,IFPNZ 

DBK 

.EMDC 

LAC 

PAX 

LAC 

PAL 

LAC 

LMQ 

LAC 

AND 

SAD 

J*MP 

LAC 

DAC 

LAC 

JMP 

CL0CK3 LAC 

.IFNQZ 

JMP 

.E!^DC 

•IFPNZ 

DAC 

LAC 

AND 

XOR 

JMP 

,ENDC 



EXIT 



PRVDKA 
PRTiMMB 

i^USEDK 
DSKREP 
DSKCNT 

API 



INITX 

Ii\iTL 

Ii^TMQ 


(77777 

(HANG-i-1 

CL0CK3 

T N'T AC 

AC 



HA*IG.4 

liMTAC 

XVM 

HANG. 2 

XVM 

AC 



(700000 

HANG 

HANG. 4 



/EXIT, aSER NOT SWAPPED IN. 

/BUMP SLICE COU^T AMD EXIT IF TIME NOT UP 

/SLICE TIME IS UP, 
/CHECK FOR SWAP INHIBIT 

/S^ fflAS SET FOR HQ SWAP? 
/RESET FOR "SWAP-WHEN^-DONE" 



/WAS CURRENT PART, LAST 
/OME TO USE DISK? 
/YES 

/NO 

/RESET MAX # OF COMSEC. DISK ACCESSES 



/FREE UP API LE\^EL 



/CHECK FOR PC AT HAMG 



/SWAP FRO^ SLICE OVERFLOi^ 



/S^AP FRO!^ JMS HAN'G 



/SAVE ACCUMULATOR 

/FETCH liMT. ADDR 

/EXTRACT LINK, BAI^K, USER STATUS 

/INSERT RETURN ADDR 

/JOIN HAMG ROUTINE 



/*12JAH15=J= 
/*12JAH15* 

/*12JAH15* 
/=t=12JAH15* 
/*12JAH15=^ 
/=^12JAH15'J= 
/*12JAH15* 



PAGE 


53 


^^IJMPS 100 CLOCK IMTKRRUPT RESPOf-ISE 


2230 




01531 R nilO^ A SECOND -CLKHZ 


2231 




01532 R 000000 A CLKT^P 



/SIXTY TICKS OR WHAT HAVE YOU 
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2232 .TITLE 'vjONlTOR 

2233 /HANG SUBROUTINE; S^APOai, STATUS CHECK, Sw^APIM 

2234 / 

2235 /PRTNMB IS ?j'EXT PARTITION TO RUM 

2236 /PRTIDX IS LAST PARTITION 

2237 /SCOUMT IS TEMPORARY POUMTER 

223R /MOMIT IS IF ^0 LAST USER, QME LESS THAN START OF PARTITIOM OTHERy^ISS 

2239 
2240 
2241 
2242 
2243 

2244 .IFP^IZ XV^^ /*12JAH15=I^ 

2245 01537 R 741400 A SZL /LINK SET? /*i2JAH15* 

2246 01540 R 253662 R XOR (400000 /YES /*12JAH15=^ 

2247 707761 A SeA = 707761 /1=12JAH15* 

2248 01541 R 707761. A SBA /BAMK MODE? /*12JAH15* 

2249 01542 R 741000 A SKP /NO /*12JAH15* 

2250 01543 R 253663 R XOR (200000 /YES /*12JAH15* 

2251 01544 K 253664 K XOR (100000 /ikl^htS IM USER MODE /*12JAH15* 

2252 .ENDC /♦12JAH15'!' 

2253 01545 R 040155 R HANG. 4 DAC PC /SLICE OVERFLOW EMTRY 

2254 01546 R 750030 A CLAIIAC /+! TO RUNDQWM 
2255 
2256 
2257 
225B 
2259 
2260 
2261 
2262 

2263 .IFPNZ GGROW /IF GARBAGE COLLECTING ONLY ^^HEM NO 

2264 001557 R STACH8 = . /ONE RUNMABLE--HAVE GAR8 RETURf^ TO HERE 
2265 

2266 01557 R 200571 R STATCH LAC SLPCMT /HAS A SECOIMO (OR 'MORE) ELAPSED /*12JAH174: 

2267 01560 P 740200 A 5ZA /SINCE LAST UPDATE OR SLEEP BUMG PARTS. /*12JAH17* 

2268 01561 R 603102 R J^^lp SLPCHK /YES, GO UPDATE SYMEf^O & PRTENO /*12JAH17* 

2269 01562 R 140571 R STACHO DZM SLPCWT /CLEAR COUI^T /*12JAH17* 

2270 01563 R 200662 R LAC ACSWRO /CHECK FOR SYSTEM CLOSE /*12JAHt7* 

2271 01564 P 513650 R AMD (600000 /SWITCHES AMD 1 
2272 
2273 

2274 01567 R 200657 R LAC PRTIDX /GET CURRENT POINTER TO STATUS TABLE 

2275 01570 R 140654 R STACHl OZM PRTNMR /ZERO CHECK FOR RUNNA3LS PARTITION 

2276 01571 R 740030 A STACH4 lAC /BUMP STATUS TABLE POIiMTER, AND 

2277 01572 R 540330 R SAD STATX /IF END-OF-TABLE , 

2278 01573 R 213665 R LAC (STATl /WRAP AROUND TO BEGIMMI^G, 
227Q 

2280 01575 R 750004 A LAS /READ SW'S DIRECTLY FOR EMG HALT 

2281 01576 R 553666 R SAD (4000 /CHECK IF EMERGENCY HALT - SW^ITCH 

2282 01577 R 601623 R JMP STACH7 /YES. 

2283 01600 R 220565 R STACH9 LAC* SCOUNT /^^JAHIO* NO, CHECK STATUS, 











/MONIT 


IS IF 


^0 LAST 


01533 


H 


740040 


A 


HANG 




XX 




01534 


R 


705522 


A 






INTOFF 




01535 


R 


040156 


R 


HAMG 


.2 


DAC 


AC 


01536 


R 


201533 


R 






LAC 

• IFP^IZ 


HAMG 
XV^^ 


01537 


R 


741400 


A 






SZL 




01540 


R 


253662 


R 






XOR 


(400000 






707761 


A 


seA= 


707761 




01541 


R 


707761 


A 






SBA 




01542 


R 


741000 


A 






SKP 




01543 


R 


253663 


R 






XOR 


(200000 


01544 


K 


253664 


R 






XOR 
.ENDC 


(100000 


01 545 


R 


040155 


R 


HANG 


.4 


DAC 


PC 


01546 


R 


750030 


A 






CLAIIAC 




01547 


R 


040656 


R 






DAC 


RUMDOv^JN 


01550 


R 


705521 


A 






INTO!^ 




01551 


R 


641002 


A 






LACO 




01552 


R 


040157 


R 






DAC 


MQ 


0155 3 


H 


724000 


A 






PXA 




01554 


R 


040150 


R 






DAC 


XR 


01555 


R 


730000 


A 






PLA 




01556 


R 


040161 


R 






OAC 
.IFPNZ 


LR 

GGROW 






001557 


R 


STAC 


H8 = 


.ENDC 




01557 


R 


200571 


R 


STAT 


CH 


LAC 


SLPCMT 


01560 


P 


740200 


A 






5ZA 




01561 


R 


603102 


R 






JMP 


SLPCHK 


01562 


R 


140571 


R 


STAC 


HO 


DZM 


SLPCNT 


01563 


R 


200662 


R 






LAC 


ACSWRO 


01564 


P 


513650 


R 






AMD 


(600000 


01565 


R 


253650 


R 






XOR 


(600000 


01566 


R 


040663 


R 






DAC 


HLTSWT 


01567 


R 


200657 


R 






LAC 


PRTIDX 


01570 


R 


140654 


R 


STAC 


HI 


DZM 


PRTNMR 


01571 


R 


740030 


A 


STAC 


H4 


lAC 




015 7 2 


R 


540330 


R 






SAD 


STATX 


01573 


R 


213665 


R 






LAC 


(STATl 


01574 


R 


040565 


R 






DAC 


SCOUfJT 


01575 


R 


750004 


A 






LAS 




01576 


R 


553666 


R 






SAD 


(4000 


01577 


R 


601623 


R 






JMP 


STACH7 


01600 


R 


220565 


R 


STAC 


H9 


LAC* 


SCOUNT 
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N^U'^PS 


100 


MONITOR 






2284 


01601 


R 


253667 


R 




XOR 


(1 


2285 


01602 


R 


513670 


R 




AND 


C4377 


2286 


01603 


R 


744200 


A 




SZAICLL 




2287 


01604 


R 


601632 


R 




JMP 


STACH3 


2288 


01605 


R 


200654 


R 




LAC 


PRTMHR 


2289 


01606 


R 


740200 


A 




SZA 




2290 


01607 


R 


6 01612 


R 




JMP 


. + 3 


2291 


01610 


R 


200565 


R 




LAC 


SCO (J NT 


2292 


01611 


R 


040654 


R 




DAC 


PRXNMB 


2293 


01612 


R 


777377 


A 




LAW 


17377 


2294 


01613 


R 


705522 


A 




IiMTOFF 




2295 


01614 


R 


520565 


R 




kHD^ 


SCOiR'JT 


2296 


01615 


R 


560565 


R 




SAD* 


SCOUMT 


2297 


01616 


R 


601632 


R 




J^^P 


STACH3 


2298 


01617 


R 


060565 


R 




DAC* 


SCOUNT 


2299 


01620 


R 


200565 


R 


STACH2 


LAC 


SCOUNT 


2300 


01621 


R 


040654 


R 




DAC 


PRTNMB 


2301 


01622 


R 


601644 


R 




JMP 


EXEC 


2302 










/ 






2303 


01623 


K 


200577 


R 


STACH7 


LAC 


OSKACT 


2 304 


01624 


R 


740200 


A 




SZA 




2305 


01625 


R 


601600 


R 




JMP 


STACH9 


2306 


01626 


P 


440570 


R 




ISZ 


E'VJERG 


2307 


01627 


R 


220565 


R 




LAC* 


SCOUNT 


2308 


1630 


R 


744200 


A 




SZAiCLL 




2309 


01631 


R 


601620 


R 




JMP 


STACH2 


2310 










/ 






231 1 






001632 


R 


STACH3= 


• , 




2312 












.IFPNZ 


API 


2313 


01632 


R 


703304 


A 




DBK 




2314 


016 3 3 


R 


700042 


A 




ION 




2315 












,E^JDC 




2316 


1 6 3 4 


R 


705521 


A 




IN TON 




2317 


01635 


R 


200565 


R 




LAC 


SCOUWT 


231R 


01636 


R 


540657 


R 




SAD 


PRTIDX 


2319 


01637 


R 


741000 


A 




SKP 




2320 


01640 


R 


601571 


R 




JMP 


STACH4 


2 321 












.IFPMZ 


GGROW 


2322 


01641 


R 


200654 


R 




LAC 


PRTNMB 


2323 


01642 


R 


745200 


A 




SNAICLL 




2324 












.EMDC 




2325 


01643 


R 


634077 


E 




JMP* 


GARS 


2326 












.IFZER 


GGROi^l 


2327 










STACKS 


LAC 


PRTNMR 


2328 












SNAiCLL 




232^ 












JMp 


STATCH 


2330 












.ENDC 




2331 












.EJECT 





/PARTITION RUNMABLE? 
/MOT RQMNABLE 

/FIRST RQNMABLE? 
/MO 



/CHECK IF PRIORITY RUN 



/NO 

/YES, RESET PRIORITY SIT 



/GLOBAL DATA /*12JAHl7* 

/*12JAH10* SWITCH OWMEO? 

/*12JAH10* YES, NO Ev?ERGE^JCY CLOSE NOW 

/rwDICATE S'J^ITCH 6 IS 3M /*12JAH17* 

/*12JAH10* DO Ef^ERGEMCY CLOSE 

/ IS PARTITION ACTIVE 

/YES, RUN IT REGARDLESS OF STATUS 



/FINISHED LOOP? 
/YES 

/no 

/ANYONE RUNNABLE? 



/*12JAH12* NO, LET'S 00 SOME GARBAGE COLLECTION 
/AMYONE RimWABLE 
/NO, LOOP SO^E MORE 
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2332 /EXfclCUriVe FOR 32K CORE OR LSSS 

2333 / 

2334 001644 R EXEC=« 

2335 .IFPNZ API 

2336 01644 R 703304 A DBK 

2337 .E^JDC 
233S 01645 R 705521 A INTOM, 

2339 01646 R 400720 R XCT SUBQUFIS /wHICH DISK CURREMTL^ RUmMING? 

2340 01647 R 741000 A SKP /SUBMERGED 

2341 01650 R 601677 R JMP EXEC2 /SERIAL 

2342 01651 R 200577 R LAC DSKACT 

2343 01652 R 741200 A SNA /kUYOnE USING DISK? 

2344 01653 R 601672 R J^P EXECl , /NO 

2345 01654 R 540654 R SAO PRTNMB /IS NE'A' PARTITION USING DISK? 

2346 01655 R 601705 R JMP exeC4 /YES 

2347 01656 R 200654 R LAC PRTlMMR /RESET MQMITQR LOOP 

2348 01657 R 353671 R TAD C IMDTAB-STATl /FETCH PTR TO PARTITIQi^ START 

2349 01660 R 040565 R DAC SCQUNT 

2350 01661 R 220565 R LAC* SCOUMT /GET PARTITION STARTING ADDRESS 

2351 01662 H 040565 R DAC SCOUNT 

2352 01663 R 220565 R LAC* SCOUMT /FETCH CONTENTS OF PC ^ORD 

2353 01664 R 513672 R AND (177777 /STRIP OUT ADDRESSS 

2354 01665 R 553673 R SAD (PRODRT /IS THIS PARTITION 'WAITING FOR DISK? 

2355 01666 R 741000 A SKP 

2356 01667 R 601705 R JMP EXEC4 /NO, SWAP HIM IH 

2357 01670 R 200654 R LAC PRTMMR /YES, DON'T BOTHER SWAPPING HI^ IN 

2358 01671 R 601570 R JMP STACHl /GO GET NEXT ELGI8LE JOB 
235'^ 01572 R 200717 R EXECl LAC SU8DSK 

2360 01673 R 740300 A SMA'SZA /WHICH DISK DESIRED? 

2361 01674 R 601705 R J'MP EXEC4 /SUBiMERGED, SAME AS 3MS RUNMIiMG, PROCEED 

2362 01675 R 213674 R LAC (SKP /YES, 00 ITi 

2363 01676 R 601704 R JMP EXEC3 

2364 01677 R 200717 R EXEC2 LAC SUBDSK 

2365 01700 R 741300 A SPA'SNA /^HICH DISK DESIRED? 

2366 01701 R 601705 R JNP EXEC4 /SERIAL, SAME AS ONE RUMf^JING, PROCEED 

2367 01702 R 140577 R DZ?^ DSKACT /SUBMERGED, ZERO O^VNERSHIP 

2368 01703 R 213675 R LAC (WOP /S>^'ITCH TO SUBMERGED 

2369 01704 R 040720 R EXEC3 DAC SUBQUES 

2370 001705 R EXEC4=. 

2371 01705 R 200660 R LAC PRTIM 

2372 01706 R 540654 R SAD PRTNMF^ 

2373 01707 R 603000 R JMP S^PIN3 /PARTITION ALREADY SWAPPED IM 

2374 01710 R 101725 R JMS SWPOUT /OUT WITH THE OLD 

2375 01711 R 102327 R JMS SWPIM /IH WITH THE MEW 

2376 01712 R 603000 R JMP SwJPlW3 

2377 /GENERAL ENTRY TO HAMG A DEVICE 

2378 / 

2379 /SETS APPROPRIATE I/O HA^'G BIT IN JOS STATUS WORD 

2380 / 

2381 /CALLING SEQUENCE: 

2382 / 

2383 / LAC X /X IS BIT 
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ffiU'APt 


5 


100 


M 


^Or^ITOR 






2384 










/ 


STL 




2385 










/ 


JiMP 


DVHANG 


23P6 










/ 






2387 


01713 


R 


705522 


A 


DV'HA;MG 


INTOFF 




2388 


01714 


R 


040564 


R 




DAC 


IQT^P 


2389 


01715 


R 


740001 


A 




CMA 




2390 


01716 


R 


520664 


R 




AMD* 


PRTiMMB 


2391 


1 7 1 7 


R 


24056A 


R 




XOR 


lOTMP 


2392 


01720 


R 


060654 


R 




DAC* 


PRTNMB 


2393 


01721 


R 


101533 


R 


DVHNGl 


JMS 


rfANG 


2394 


01722 


R 


741400 


k 




SZL 




2395 


01723 


R 


603253 


R 




JMP 


X0UT4A 


2396 


01724 


R 


603334 


R 




JMP 


XPACK2 


2397 












•EJKCT 





STL FOR output; CLL FOR liMPUT 



/COMPLEMEMT AND 

/NASK ^ITH J08 STATUS ^ORO 

/SET BIT 

/REPLACE STATUS 

/EiMTRy FOR PAPER TAPE READER 

/IMPUT OR OUTPUT? 

/OUTPUT 

/IMPUT 
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'^UVJPS too 



^lOMITOR 



2398 








( /COMIEXT SWITC 


H OUT ROUTINE 


2399 


01725 


R 


740040 


A 


■ SWPOUT XX 




2400 


01726 


R 


200661 


R 


LAG 


fvfONlT /ANY "OLD" USER? 


2401 


01727 


R 


741200 


A 


SNA 




2402 


01730 


R 


621725 


R 


JMP* 


SWPOUT /NO- SYSTEM 


2403 


017 3 1 


R 


721000 


A 


PAX 




2404 


^017 32 


rI 






•DBREL 


; DBA 




1707762 


A 




(^0^ jW-.^ 


2405 








/SWAP DUT OLD 


USER 


2406 


01733 


R 


200155 


R 


LAC 


PC {^9- A 

1,X 06 0(1/ i)^'>-^ v-h/ 


2407 


01734 


R 


050001 


A 


OAC 


240B 


01735 


R 


200156 


R 


LAC 


AC 


2409 


01736 


R 


050002 


A 


DAC 


2.x 


2410 


01737 


R 


200157 


R 


LAC 


NQ 


2411 


01740 


R 


050003 


A 


DAC 


3,X 


2412 


01741 


R 


200160 


R 


LAC 


XR 


2413 


01742 


R 


050004 


A 


OAC 


4,X 


2414 


01743 


R 


200161 


R 


LAC 


LR 


2415 


01744 


R 


050005 


A 


DAC 


5.x 


2416 


01745 


R 


200010 


A 


LAC 


RIO 


2417 


01746 


R 


050006 


A 


OAC 


6,X 


241B 


01747 


R 


200013 


A 


LAC 


R13 


2419 


01750 


R 


050007 


A 


DAC 


7.x 


2420 


017 51 


R 


200014 


A 


LAC 


R14 


2421 


01752 


R 


050010 


A 


DAC 


1 . X 


2422 


01753 


R 


200015 


A 


LAC 


R15 


2423 


01754 


R 


0500U 


A 


DAC 


11, X 


2424 


01755 


R 


200016 


A 


LAC 


R16 


2425 


01756 


R 


050012 


A 


DAC 


12, X 


2426 


01757 


R 


200017 


A 


LAC 


R17 


2427 


01760 


R 


050013 


A 


DAC 


13,X 


242B 


01761 


9 


200020 


A 


LAC 


R20 


2429 


01762 


R 


050014 


A 


DAC 


14,X 


2430 


01763 


R 


200162 


R 


LAC 


PRNCOV 


2431 


01764 


R 


050015 


A 


DAC 


15, X 


2432 


01765 


R 


200163 


R 


LAC 


IMPUT 


2433 


01766 


R 


050016 


A 


DAC 


16,X 


2434 


01767 


R 


200164 


R 


LAC 


OUTPUT 


2435 


01770 


R 


050017 


A 


DAC 


17, X 


2436 


01771 


p 


200165 


R 


LAC 


STACK 


2437 


01772 


R 


050020 


A 


DAC 


20, X 


2438 


01773 


R 


200166 


R 


LAC 


SPOINT 


2439 


01774 


R 


050021 


A 


DAC 


21, X 


2440 


017 75 


R 


200167 


K 


LAC 


E^IO 


2441 


01776 


R 


050022 


A 


OAC 


22, X 


2442 


01777 


R 


200170 


R 


LAC 


SY^BKG 


2443 


2 00 


R 


050023 


A 


OAC 


23, X 


2444 


02001 


p 


200171 


R 


LAC 


OBPMT 


2445 


02002 


R 


050024 


A 


DAC 


24, X 


2446 


02003 


R 


200172 


R 


LAC 


'^RTSW 


2447 


02004 


R 


050025 


A 


DAC 


25, X 


2448 


02005 


R 


200173 


R 


LAC 


SWPC^JT 



!AS IDLE; ^DTHINi 



TO SWAPGUT 
/*12JAH[17* 
/*12JAH17* 



/*12JAH17* 

/*i2JAH17* 

/*12JAH17* 

/=<'12JAH17* 

/*12JAHi7* 

/*12JAH17* 

/*12JAH17* 

/*12JAH17* 

/*12JAH17* 

/*12JAHJ7* 

/*12JAH17* 

/=5'12JAH17* 

/*12JAH17* 
/*12JAH17* 

/*12JAH17* 
/*12JAH17'*= 
/*12JAH17* 
/♦12JAH17* 
/*12JAH17* 
/'«^12JAH17=?' 
/*12JAH17=»= 
/♦12JAH17* 
/*12JAH17* 
/1=12JAHi7* 
/*12JAH17* 
/♦12JAHi7* 
/*12JAH17* 
/'»=12JAH17* 
/^UJAHU'i^ 
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^U^PS 100 



'MONITOR 



2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
247 B 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2491 
2482 
24B3 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2 49 3 
2494 
2495 
2496 
2497 
2498 
2499 
2500 



02006 
02007 
02010 
02011 
02012 
02013 
O2014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 
02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 



050026 
200174 
050027 
200175 
050030 
200176 
050031 
200177 
050032 
200200 
050033 
200201 
050034 
200202 
050035 
200203 
050036 
200204 
050037 
200205 
050040 
200206 
050041 
200207 
050042 
000042 



02045 
02046 



00004 3 A 
02037 R 200210 R 
02040 R 050043 A 



000044 A 

02041 R 200211 R 

02042 R 050044 A 

000045 A 

02043 R 200212 R 

02044 R 050045 A 



20021 3 R 
050046 A 



02047 R 200214 R 

02050 R 050047 A 

02051 R 200215 R 

02052 R 050050 A 

02053 R 200216 R 

02054 R 050051 A 

02055 R 200217 P 

02056 R 050052 A 

02057 R 200220 R 

02060 R 050053 A 

02061 R 200221 R 



Q = 42 



Q = Q + 1 



= 9+1 



Q = Q + 1 



DAC 
LAC 
OAC 
LAC 
DAC 
LAC 
OAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
OAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 



26, X 
CLKCNT 
27, X 
WRTCMT 
30, X 
ROCNT 
31, X 
SYM 
32, X 
SCRIP 
3 3,X 
SAVPRD 
34, X 
TEMP 
35, X 
FORTST 
36, X 
SYMS 
37, X 
SCRIPS 
40, X 
LOC 
41, X 
VAL 
42, X 



.IFPNZ NfONEY 



LAC 


*40NYSl^ 


DAC 


Q,X 


.ENDC 




•IFPMZ 


FMONFY 


LAC 


VALF 


DAC 


Q,X 


LAC 


FLOAT 


DAC 


Q,X 


• EiSJOC 




LAC 


GFLAG 


DAC 


Q+1,X 


LAC 


>A 


DAC 


Q-«-2,X 


LAC 


SUM 


DAC 


Q + 3,X 


LAC 


TERM 


DAC 


Q + 4,X 


LAC 


ACTCMP 


DAC 


Q-»-5,X 


LAC 


I POINT 


DAC 


Q + 6,X 


LAC 


IPLACE 



/'«^12JAH17=«= 
/*12JAH17^ 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 

/*12JAH17=t= 
/=P12JAH17'*= 

/^12JkHn^ 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17^ 
/*12JAH17* 
/*12JAH17'? 
/=t=12JAH17'^ 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH171= 
/'«=12JAH17* 
/*12JAH17* 

/*12JA917* 
/=^12JAH17* 
/*12JAH17^ 
/*12JAH17* 
/>i^l2JAH17* 
/*12JAH17* 
/=t=12JAH17* 

/*12JAH17* 

/*12JAH17* 
/=S'12JAH17* 
/*12JAH17=«= 
/*12JA917* 
/♦12JAH17'«« 
/*12JAH17* 
/=^12JAH17* 

/^i2jmn^ 

/*12JAH17* 
/*12JAH174^ 
/'«=12JAH17* 
/'^'UJAHU* 
/=^12JAtil7=«^ 
/*12JAHi7* 
/*12JAH17* 
/=*=12JAH17=«^ 
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MQ^PS 


100 


^lONITOR 






2501 


02062 


R 


050054 


A 


DAC 


Q + 7,X 


2502 


02063 


R 


200222 


R 


LAC 


OPOIMT 


2503 


02064 


R 


050055 


A 


DAC 


Q+10,X 


2504 


02065 


R 


200223 


R 


LAC 


QPLACK 


2505 


02066 


R 


050056 


A 


DAC 


Q+n,x 


2506 


02067 


R 


200224 


R 


LAC 


TENPl 


2507 


02070 


R 


050057 


A. 


DAC 


0+12,X 


2508 


02071 


R 


200225 


R 


LAC 


POl.NTl 


2509 


02072 


R 


050060 


A 


DAC 


Q+13,X 


2510 


02073 


R 


200226 


R 


LAC 


PLACEl 


2511 


02074 


R 


050061 


A 


DAC 


Q+14,X 


2512 


02075 


R 


200227 


R 


LAC 


TEr'^P2 


2513 


02076 


R 


050062 


A 


DAC 


a+i5,x 


25H 


02077 


R 


200230 


R 


LAC 


P0IMT2 


2515 


02100 


R 


050063 


A 


DAC 


Q+16,X 


2516 


02101 


R 


200231 


R 


LAC 


PLACE2 


2517 


02102 


R 


050064 


A 


DAC 


0+17, X 


2518 


02103 


R 


200232 


R 


LAC 


BSUH 


2519 


02104 


R 


050065 


A 


DAC 


Q+20,X 


2520 


02105 


R 


200233 


R 


LAC 


8TERN 


2521 


02106 


R 


050066 


A 


DAC 


Q+21,X 


2522 


02107 


R 


200234 


R 


LAC 


3VAL 


2523 


02110 


R 


050067 


A 


DAC 


Q-f'22,X 


2524 


0211 1 


R 


200235 


R 


LAC 


FORVAR 


2525 


02112 


R 


050070 


A 


DAC 


Q4-2 3,X 


2526 


021 13 


R 


200236 


R 


LAC 


PROG 


2527 


02114 


R 


050071 


A 


DAC 


0+24, X 


2529 


02115 


R 


200237 


R 


LAC 


POSER 


2529 


02116 


R 


050072 


A 


DAC 


3 + 25. X 


2530 


02117 


R 


200240 


R 


LAC 


ID 


2531 


02120 


R 


050073 


A 


DAC 


Q+26,X 


2532 


02121 


R 


200241 


R 


LAC 


USER 


2533 


02122 


R 


050074 


A 


DAC 


Q+27,X 


2534 


02123 


R 


200242 


R 


LAC 


BKCHAR 


2535 


02124 


R 


050075 


A 


DAC 


Q+30,X 


2536 


02125 


R 


200243 


R 


LAC 


Tl 


2537 


02126 


R 


050076 


A 


DAC 


Q+31,X 


253B 


02127 


R 


200244 


R 


LAC 


T2 


2539 


02130 


R 


050077 


A 


DAC 


Q+32,X 


2540 


02131 


R 


200245 


R 


LAC 


T3 


2541 


02132 


R 


050100 


A 


DAC 


Q+33,X 


2542 


02133 


R 


200246 


R 


LAC 


IFSWT 


2543 


02134 


R 


050101 


A 


DAC 


Q+34,X 


2544 


02135 


R 


200247 


R 


LAC 


GUNIT 


2545 


02136 


R 


050102 


A 


DAC 


Q+35,X 


2546 


02137 


R 


200250 


R 


LAC 


BUNIT 


2547 


02140 


R 


050103 


A 


DAC 


0+36, X 


2549 


02141 


R 


200251 


R 


LAC 


G8LKHT 


2549 


02142 


R 


050104 


A 


DAC 


+ 37, X 


2550 


02143 


R 


200252 


R 


LAC 


GHI 


2551 


02144 


R 


050105 


A 


DAC 


Q+40,X 


2552 


02145 


R 


200253 


R 


LAC 


GHEAD 



/=«=12JAH17* 
/*12JAH17=«^ 
/*12JAH17l? 

/^12JkHn* 
/*12JAH17'*= 
/*12JAH17* 
/^12JAH)7* 
/*12JAH17* 
/*=12JAH17* 
/*12JAH17l^ 
/*12JAH17=*= 
/*12JAHt7* 
/^12JhHn^ 
/♦12JAH17* 
/tl2JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17t 
/^i2JAH17* 
/*12JAH17* 
/*12JAH17'i= 
/*12JAH17* 
/*12JAH17* 
/'J=12JAH17* 

/*12JAH17* 
/*12JAH174^ 
/*12JAH17* 
/*12JAH17* 
/*12JA917* 
/*12JAH17'S' 
/*12JAH171= 
/*12JAH17* 
/*12JAH17* 
/*12JAR174: 

/*12JAH17* 
/♦12JAH17* 

/*12JAH17* 
/*12JAH17* 
/♦12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17=*: 
/'^12JAH17'»= 
/*12JAH17* 
/*12JAH17* 
/♦12JAH17* 
/*12JAH17=I= 
/*12JAHt71' 
/*12JAH17* 
/*12JAH17=^ 
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^■UMPS 


100 


v!O^IITOR 






2553 


02146 


R 


050106 


A 


DAC 


Q+41,X 


2554 


02147 


R 


200254 


R 


LAC 


GSYMBOI 


2555 


02150 


R 


050107 


A 


DAC 


Q+42,X 


2556 


02151 


R 


200255 


R 


LAC 


GHDOLD 


2557 


02152 


R 


050110 


A 


DAC 


Q+43.X 


255B 


02153 


R 


207041 


R 


LAC 


'^RPART 


2559 


02154 


p 


050111 


A 


DAC 


Q+44,X 


2560 


02155 


R 


206621 


R 


LAC 


COi^T 


2561 


02156 


R 


050112 


A 


DAC 


Q+45,X 


2562 


02157 


R 


206203 


R 


LAC 


BOOL 


2563 


02160 


R 


050113 


A 


OAC 


Q+46,X 


2564 


02161 


R 


200256 


R 


LAC 


600LL 


2565 


02162 


R 


050114 


A 


OAC 


0+47, X 


2566 


02163 


R 


200260 


R 


LAC 


BOOLE 


2567 


02164 


R 


050U5 


A 


OAC 


Q+50,X 


2568 


02165 


R 


200262 


R 


LAC 


BOOLG 


2569 


02166 


R 


050116 


A 


DAC 


Q+51,X 


2570 


02167 


R 


204770 


R 


LAC 


CHARl 


2571 


02170 


R 


050117 


A 


DAC 


Q-l-52,X 


2572 


02171 


H 


205014 


R 


LAC 


CHAR2 


2573 


02172 


R 


050120 


A 


DAC 


Q-l-53,X 


2574 


02173 


R 


205201 


R 


LAC 


CHECK 


2575 


02174 


R 


050121 


A 


DAC 


Q+54,X 


2576 


02175 


R 


203535 


R 


LAC 


DISPAT 


2577 


02176 


R 


050122 


A 


DAC 


Q+55,X 


2578 


02177 


R 


200264 


R 


LAC 


OISLOP 


2579 


02200 


R 


050123 


A 


DAC 


0+56, X 


2580 


02201 


R 


203641 


R 


LAC 


PRODA 


2581 


02202 


R 


050124 


A 


DAC 


Q+57,X 


2582 


02203 


R 


204340 


R 


LAC 


PLACE 


2583 


02204 


R 


050125 


A 


DAC 


Q+60,X 


2584 


02205 


R 


204645 


R 


LAC 


OCHAR 


2585 


02206 


R 


050126 


A 


DAC 


Q+61,X 


2586 


02207 


R 


204660 


R 


LAC 


OCHARI 


2587 


02210 


R 


050127 


A 


DAC 


Q+62,X 


2588 


02211 


R 


204710 


R 


LAC 


SUBOPT 


2589 


02212 


R 


050130 


A 


DAC 


Q+63,X 


2590 


02213 


R 


205040 


R 


LAC 


SAVE 


2591 


02214 


R 


050131 


A 


OAC 


Q+64,X 


2592 


02215 


R 


205103 


R 


LAC 


UniSAVF 


2593 


02216 


R 


050132 


A 


DAC 


Q+65,X 


2594 


02217 


R 


205123 


R 


LAC 


STEP 


2595 


02220 


R 


050133 


A 


DAC 


Q+66,X 


2596 


02221 


R 


205151 


R 


LAC 


PART 


2597 


02222 


R 


050134 


A. 


DAC 


Q+67.X 


2598 


02223 


R 


207163 


R 


LAC 


f:val 


2599 


2 2 24 


R 


050135 


A 


DAC 


Q+70,X 


2600 


02225 


R 


205434 


R 


LAC 


SYMBOL 


2601 


02226 


R 


050136 


A 


DAC 


Q-»-71,X 


2602 


02227 


R 


203724 


R 


LAC 


SYNTAX 


2603 


02230 


R 


050137 


A 


DAC 


Qt72.X 


2604 


02231 


R 


203744 


R 


LAC 


STORl 



/*12JAH17'f= 
/*12JAH17* 
/*12JAH17=^ 
/*12JAH17* 
/^UJAHU'J^ 
/'«^12JAH17* 
/*12JAH17* 
/*12JAH17=S' 
/*12JAH17* 
/*12JAH171= 
/*12JA917* 
/*12JAHi7* 
/*12JAH17* 
/*12JAH174= 
/=^12JAH17* 
/*12JAH17* 
/*12JAH17* 

/'fl2JAH17* 
/*12JAH17^ 
/*12JAHi74= 
/*12JAH17* 
/*12JAH17=«= 
/*12JAH17=<' 
/*12JAH17* 
/*12JAH17'^ 
/*12JAH17^ 
/♦12JAH17* 
/*12JAH17=«= 

/^12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17=i= 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH117* 
/4=12JAH17* 

/*12JAH17* 
/tl2JAH17t 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 

/'J=12JAH171^ 
/*12JAH17* 
/*12JAH17=»= 
/*12JAH17* 
/*12JAH17* 
/*12JAH17'«^ 
/*12JAH17* 



9h.GE 7 2 


WUMPS 


100 


MO'^ITOR 






2605 


02232 


R 


050140 


A 


DAC 


Q+73,X 


2606 


02233 


R 


204034 


R 


LAC 


ST0R2 


2607 


02234 


R 


050141 


A 


DAC 


a-f74.X 


260B 


02235 


R 


204103 


R 


LAC 


DECIM 


2609 


02236 


R 


050142 


A 


OAC 


Q+75,X 


2510 


02237 


R 


204255 


R 


LAC 


DECOUT 


2611 


02240 


R 


050143 


A 


OAC 


+ 76, X 


2612 


02241 


R 


204320 


R 


LAC 


OCTOUT 


2613 


02242 


R 


050144 


A 


DAC 


Q+77,X 


2614 


02243 


R 


206673 


R 


LAC 


FOR^^AT 


2615 


02244 


R 


050145 


A 


DAC 


Q+100,X 


2616 


02245 


R 


205304 


R 


LAC 


ASSEN 


2617 


02246 


R 


050146 


A 


OAC 


Q + lOl .X 


2618 


02247 


R 


200266 


R 


LAC 


GASS 


2619 


02250 


R 


05014? 


A 


OAC 


a+i02.x 


2620 


02251 


R 


203174 


R 


LAC 


OUT 


2621 


02252 


R 


050150 


A 


DAC 


Q^-103,X 


2622 


02253 


R 


204725 


R 


LAC 


ICHARl 


2623 


02254 


R 


050151 


A 


DAC 


Q+104.X 


2624 


02255 


R 


204235 


R 


LAC 


Dec 2 


2625 


^2256 


R 


050152 


A 


DAC 


Q-M05,X 


2626 


02257 


R 


203325 


R 


LAC 


PACKEM 


2627 


02260 


R 


050153 


A 


OAC 


Q+106,X 


2628 


02261 


R 


207066 


R 


LAC 


^RSTEP 


2629 


02262 


R 


050154 


A 


DAC 


Q+107,X 


2630 


02263 


R 


203712 


R 


LAC 


OTEKT 


2631 


02264 


R 


050155 


A 


DAC 


Q + UO.X 


2632 


02265 


R 


205363 


R 


LAC 


SVE 


2633 


02266 


R 


050156 


A 


OAC 


Q-mux 


2634 


02267 


R 


207107 


R 


LAC 


SGTIO 


2635 


02270 


R 


050157 


A 


DAC 


Q+112.X 


2636 






000157 


A Q=Q+112 






2637 










.IFPNZ 


DTA 


2638 






OOOlbO 


A Q=Q+1 






2639 


02271 


R 


203701 


R 


LAC 


LGKDT 


2640 


02272 


R 


050160 


A 


DAC 


Q,X 


2641 










-ENDC 




2642 


02273 


R 


205272 


R 


LAC 


KEYCHK 


2643 


02274 


R 


050161 


A 


DAC 


Q+1,X 


2644 


02275 


R 


205242 


R 


LAC 


GETKEY 


2645 


02276 


R 


050162 


A 


DAC 


Q+2,X 


2646 


02277 


R 


207021 


R 


LAC 


TSTR 


2647 


02300 


R 


050163 


A 


DAC 


Q+3,X 


2648 


02301 


R 


200270 


R 


LAC 


GSY^^ 


2649 


02302 


R 


050164 


A 


DAC 


Q + 4,X 


2650 


02303 


R 


200272 


R 


LAC 


GLOBAL 


2651 


02304 


R 


050165 


A 


DAC 


Q + 5,X 


2652 


02305 


R 


204357 


R 


LAC 


PLACl 


2653 


02306 


R 


050166 


A 


OAC 


Qf6,X 


2654 






000166 


A Q=Q+5 






2655 










.IFPNZ 


MODIFY 


2656 






000167 


A Q=Q+1 







/4^12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17l= 
/1=12JAH17* 
/*12JAH17=«' 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/=*=12JAHi7* 
/*12JAH17* 
/*12JAH17=*= 
/4^12JAH17* 
/=^12JAH17* 
/'«=12JAH17* 
/*12JAH17* 
/*12JAH17* 
/=t=12JAH17=«' 
/*12JAH17* 
/*12JAH17* 

/=«=12JAH17* 
/♦12JAH17* 
/=«=12JAH17* 
/^12JAH17* 
/*12JAH17* 
/=<^12JAH17* 
/=^12JAH17^ 
/*12JAH17* 
/*12JAH17* 

/*12JAH17* 

/*12JAH17* 
/*12JAH17* 
/♦12JAH17=«^ 
/*12JAH17* 
/♦12JAH17* 
/=*^12JAH17* 
/*12JAH17* 
/♦12JAH174C 

/*12JAH17* 
/*12JAH17=}= 
/*12JAH17* 
/*12JAH17=I= 
/*12JAH17* 
/'♦=12JAH17* 
/♦12JAH17* 
/*12JAH17* 
/*12JAH17* 

/*12JAH17* 
/*12JAH17=t= 
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2657 

2658 

2659 

2660 

2661 

2662 

2663 I 

2664 

2665 

2666 

2667 

2663 

2669 

2670 

2671 

2672 
2673 
2674 
2675 



^UMps 100 



viOMITOR 



02307 
02310 
2 311 
02312 



02313 
02314 
02315 
02316 
02317 
02320 
02321 
02322 



204616 
050167 
204573 
050170 
000170 

210005 
050171 
220274 
050172 
220276 
050173 
220275 
050174 



02323 R 707764 A 

02324 R 140661 R 

02325 R 140660 R 

02326 R 621725 R 



Q = Q+1 



LAC 
OAC 
LAC 
DAC 



SRMOD 

^^eiJF2 
Q+UX 



LAC ^-"-frENi 




0^ 



u 



V) 



LAC* 
DAC 
LAC* 
DAC 



PTEMPX 
Q + 2,X 
PRDCWTX 
Q-i-3,X-i 



LAC* 

D-AC 

• E 8 R E Ij 



PBOOLX 

Q + 4,X 

? E8A 
17^ 



DZM 
DZf^i 
JMP* 
« E J EC T 



PRTIfJ 
SWPOUT 



^rrf il ibgl 





/*12JA917* 
/*12JA«17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAHi7* 



Wl^. 






^UNPS 


100 


'V 


iONlTQR 














/Swap 


IN NEW 


USER 


02327 


R 


740040 


A 


S^A'PIM 


XX 




02 3 30 


R 


200654 


R 




LAC 


PRTNMB 


02331 


R 


040657 


R 




DAC 


PRTIDX 


02332 


R 


040660 


R 




DAC 


PRTIM 


02333 


R 


313676 


R 




ADD 


C-STATl 


02334 


R 


040655 


R 




DAC 


RUNNNB 


02335 


R 


213677 


R 




LAC 


(SYNBOT 


02336 


R 


040017 


A 




DAC 


R17 


02337 


R 


777763 


A 




LAi^ 


-SYSVAR 


02340 


R 


040020 


A 




DAC 


R20 


02341 


R. 


200657 


R 




LAC 


PRTIDX 


02342 


R 


353676 


R 




TAD 


(-STAT1 


02343 


R 


040155 


R 




DAC 


PC 


02344 


R 


353700 


R 




TAD 


(INDTAB 


02345 


R 


040156 


R 




DAC 


AC 


02346 


R 


220156 


R 




LAC* 


AC 


02347 


R 


723777 


A 




AAC 


-1 


02350 


R 


040661 


R 




DAC 


^ONIT 


02351 


R 


721000 


A 




PAX 
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2676 

2677 

2678 

2679 

2680 

26B1 

2682 02334 R 040655 R DAC RUNNNB /SET PARTITION ;M0. HOH RUi^NII^G 

2683 

2684 

2685 

2686 02340 R 040020 A DAC R20 /LENGTH OP SYST, VARIABLE LIST 

2687 

2688 

2689 02343 R 040155 R DAC PC /TEMP SAVE PART, # -i 

2690 

2691 

2692 02346 R 220156 R LAC* AC /PART. START. AODR. 

2693 

2694 02350 R 040661 R DAC ^ONIT /SAVE FOR SWAP OUT AND SET GARB SWITCH 

2695 

2696 / 

2697 /C3MPUTE SYSTEM PARAMETERS FOR THIS PARTITION. 

2698 / 

2699 02352 R 313701 R ADD CS^'.'APSZ + l 

2700 02353 R 040704 R DAC OSKBFF /ADDRESS OF DISK BUFFER 

2701 02354 R 740030 A lAC ^ 

2702 02355 R 040705 R DAC GB;^D2 /"GLOBAL BUFFER WORD 2" - ^^^^^ 

2703 02356 R 313702 R ADD (BLOCK-1 ^^/^ 

2704 02357 R 040132 R DAC BOFFl /ADDRESS OF DIRECT CD^^AND BUFFER - -^ 

2705 02360 R 313703 R ADD CCOMBUFF oe,^') 

2706 02361 R 040133 R DAC BUFF2 /ADDRESS OF STRIMG ACCUMULATOR -ASe^C 

2707 02362 R 313703 R ADD (STRACC 

2708 0236B R 040134 R DAC BUFF /START OF PROGRAM BUFFER 

2709 02364 R 340277 R TAD USABLE 

2710 02365 R 040135 R DAC SYMBOT /ADDRESS OF BOTTOM OF USER DEFINED 

2711 /SYiMBOL TABLE (EXCLUSIVE OF PER^viANEMT 

2712 /SYMBOLS) 

2713 02366 R 200155 R LAC PC /PART. # -1 

2714 02367 R 354142 E TAD PASTAB 

2715 02370 R 040155 R OAC PC. 

2716 02371 R 220155 R LAC* PC /PART. SIZE 

2717 02372 R 340135 R TAD SYMBOT 

2718 02373 R 040135 R DAC SYMBOT 

2719 02374 R 313704 R ADD (4 /4 CELLS FOR DATE 

2720 . 02375 R 313705 R SWPIN4 ADO (2 /SETUP SYSTEM VARIABLES 

2721 02376 R 060017 A DAC* R17 

2722 02377 R 440020 A ISZ R20 /-SYSVAR PREVIOUSLY PLACED IM R20 

2723 02400 R 602375 R J^p SWPIN4 

2724 02401 R 740030 A lAC 

2725 02402 R 040153 R DAC SYMEMO /PRTBEGf PRTSIZE-2 

2726 02403 R 740030 A lAC 

2727 02404 R 040154 R DAC PRTEND /PRTBEG+PRTSIZE-1 
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^UHPS 


100 


MONITOR 






2728 








/S^k9 


IN SWAPPING IMAGE 


2729 








/ 






2730 










.D8REL 


? DBA 




02405 


R 


707762 


k 






2731 


02406 


R 


210001 


h 


LAC 


l.X 


2732 


02407 


R 


040155 


R 


DAC 


PC 


2733 


02410 


R 


210002 


A 


LAC 


2,X 


2734 


0241 1 


R 


040156 


R 


OAC 


AC 


2735 


02412 


R 


210003 


A 


LAC 


3.x 


2736 


02413 


R 


040157 


R 


DAC 


m 


2737 


02414 


R 


210004 


A 


LAC 


4,X 


2738 


02415 


R 


040160 


R 


DAC 


XR 


2739 


02416 


R 


210005 


A 


LAC 


5,X 


2740 


02^17 


R 


040161 


R 


DAC 


LR 


2741 


02420 


R 


210006 


A 


LAC 


6,X 


2742 


02421 


R 


040010 


A 


DAC 


RIO 


2743 


02422 


R 


210007 


A 


LAC 


7,X 


2744 


02423 


R 


040013 


A 


OAC 


R13 


2745 


02424 


R 


210010 


A 


LAC 


10, X 


2746 


02425 


R 


040014 


A 


DAC 


R14 


2747 


02426 


R 


2100U 


A 


LAC 


11, X 


2748 


02427 


R 


040015 


A 


DAC 


R15 


2749 


02430 


R 


210012 


A 


LAC 


12, X 


2750 


02431 


R 


040016 


A 


DAC 


R16 


2751 


02432 


R 


210013 


A 


LAC 


13, X 


2752 


02433 


R 


040017 


A 


DAC 


R17 


2753 


02434 


R 


210014 


A 


LAC 


14, X 


2754 


02435 


H 


040020 


A 


DAC 


R20 


2755 


02436 


R 


210015 


A 


LAC 


15, X 


2756 


02437 


R 


040162 


R 


OAC 


PR(^}CDV 


2757 


02440 


R 


210016 


A 


LAC 


16, X 


2758 


02441 


R 


040163 


R 


DAC 


IMPLJT 


2759 


02442 


R 


210017 


A 


LAC 


17, X 


2760 


02443 


R 


040164 


R 


OAC 


OUTPrjT 


2761 


02444 


R 


210020 


A 


LAC 


20, X 


2762 


02445 


R 


040165 


R 


DAC 


STACK 


2763 


02446 


R 


210021 


A 


LAC 


21, X 


2764 


02447 


R 


040166 


R 


DAC 


SPOIWT 


2765 


02450 


R 


210022 


A 


LAC 


22, X 


2766 


02451 


R 


040167 


R 


OAC 


EHD 


2767 


02452 


R 


210023 


A 


LAC 


23, X 


2768 


02453 


R 


040170 


R 


DAC 


SYiMBEG 


2769 


02454 


R 


210024 


A 


LAC 


24, X 


2770 


02455 


R 


040171 


R 


DAC 


OBPWT 


2771 


02456 


R 


210025 


A 


LAC 


25, X 


2772 


02457 


R 


040172 


R 


DAC 


i^RTSw 


2773 


02460 


R 


210026 


A 


LAC 


26, X 


2774 


02461 


R 


040173 


R 


DAC 


S'^PCWT 


2775 


02462 


R 


210027 


A 


LAC 


27, X 


2776 


02463 


R 


040174 


R 


DAC 


CLKCNT 


2777 


02464 


R 


210030 


A 


LAC 


30, X 


2778 


02465 


R 


040175 


R 


DAC 


WRTCNT 
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/*12JAHi7* 
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/*12JAH17* 

/*12JAH17* 

/*12JAH17* 

/*12JAH17: 

/=»^12JAH17* 

/*12JAH17* 

/*12JAH,17* 

/*12JAH17* 
/=*=12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAHi7* 
/^12JAH17^ 
/*12JAH17* 
/*12JAH17=t= 
/*12JAH17* 
/*12JAH17* 
/*12JAHi7* 
/*12JAf117'J^ 
/*12JAH17* 
/*12JAH17* 
/*12JAH17'«= 
/*12JAH17* 
/=t=12JAH171^ 
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/*12JAH17* 
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/*12JAH17=«= 
/*12JAH17* 
/*12JAHi7* 
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2779 02466 R 210031 h LAC 31, X /*12JAH17* 

2780 02467 R 040176 R DAC RDC^^T /*12JAH17* 

2781 02470 R 210032 h LAC 32, X /*12JAH17* 

2782 02471 R 040177 R DAC SY'A /=»=12JAH17* 

2783 02472 R 210033 A LAC 33, X /*12JAH17: 

2784 02473 R 040200 R DAC SCRIP /*12JAH17* 

2785 02474 R 210034 A LAC 34, X /=J=12JAH17: 
27g6 02475 R 040201 R DAC SAVPRD /=^12JAH17* 

2787 0247b R 210035 A LAC 35, X /*12JAH17^ 

2788 02477 R 040202 R DAC TPJMP /*12JAH17=»^ 
2799 02500 R 210036 A LAC 36, X /*12JAH,17=«= 

2790 02501 R 040203 R DAC FQRTST /=*'i2JAHl7* 

2791 02502 R 210037 A LAC 37, X /*12JAH17* 

2792 02503 R 040204 R DAC SYMS /*12JAH17* 

2793 02504 R 210040 A LAC 40, X /*12JAH17* 

2794 02505 R 040205 R DAC SCRIPS /*12JAH17* 

2795 02506 R 210041 A LAC 41, X /*12JAH17* 

2796 02507 R 040206 R DAC LQC /*12JAH17* 

2797 02510 R 210042 A LAC 42, X /*12JAHI17* 

2798 02511 R 040207 R OAC \^AL /*12JAH17* 

2799 000042 A 0=42 /*12JAH17* 

2800 .IFPMZ ^/lOr^Ey /*12JAH17* 

2801 000043 A Q=Q+1 /*12JAH17* 

2802 02512 R 210043 A LAC Q,X /*12JAH17* 

2803 02513 R 040210 R DAC iOMYSv^ /*12JAH17* 

2804 .ENDC /*12JAH17* 

2805 .IFPNZ F'^ONEY /*12JAH17=«= 

2806 000044 A Q=Q+1 /*12JAH17* 

2807 02514 R 210044 A LAC Q,X /*12JAH17* 

2808 02515 R 040211 R DAC VALF /4cl2JAH17* 
2B09 000045 A Q=Q+1 /*12JAH17* 

2810 02516 R 210045 A LAC Q,X /*12JAH17* 

2811 02517 R 040212 R DAC FLOAT /*12JAH17* 
2B12 .ENOC /*12JAH17* 

2813 02520 R 210046 A LAC Q+1,X /*12JAH17* 

2814 02521 R 040213 R DAC OFLAG /*12JAH17* 

2815 02522 R 210047 A LAC Q+2,X /*12JAH17* 

2816 02523 R 040214 R DAC ^ /=t:i 2JAH17'?= 

2817 02524 R 210050 A LAC Q+3,X /*12JAH17* 
2918 02525 R 040215 R DAC SUM /*12JAH17* 

2819 02526 R 210051 A LAC Q-»-4,X /*12JAH17* 

2820 02527 R 040215 R DAC TERM /*12JAH17* 

2821 02530 R 210052 A LAC Q + 5,X /^XUkHll* 

2822 02531 R 040217 R OAC ACTENIP /*12JAR17* 

2823 02532 R 210053 A LAC Q+6,X /*12JAH17* 

2824 02533 R 040220 R DAC IPOINT /*12JAH17* 

2825 02534 R 210054 A LAC Q+7,X /*12JAH17* 

2826 02535 R 040221 R DAC IPLACF /*12JAH17* 

2827 02536 R 210055 A LAC Q+10,X /*12JAH17'J: 

2828 02537 R 040222 R DAC QPOINT /*12JAH17^ 

2829 02540 R 210056 A LAC Q+11,X /*12JAH17^ 

2830 02541 R 040223 R DAC OPLACE /*12JAH17^ 
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MUMPS 


100 


MOMITQR 






2931 


02542 


R 


210057 


A 


LAC 


Q+12,X 


28^2 


02543 


R 


040224 


R 


DAC 


TEMPI 


2833 


02544 


R 


210060 


A 


LAC 


Q+13,X 


2834 


02545 


R 


040225 


R 


DAC 


POINTl 


2835 


02546 


R 


210061 


A 


LAC 


Q+14,X 


2836 


02547 


R 


040226 


R 


DAC 


PLACEl 


2837 


02550 


R 


210062 


A 


LAC 


Q+15,X 


2838 


02551 


R 


040227 


R 


DAC 


TEMP? 


2839 


02552 


R 


210063 


A 


LAC 


Q+16.X 


2840 


02553 


R 


040230 


R 


DAC 


P0INT2 


2841 


02554 


R 


210064 


A 


LAC 


Q+17,X 


2842 


02555 


R 


040231 


R 


DAC 


PLACE2 


2843 


02556 


R 


210065 


A 


LAC 


Q+20,X 


2844 


02557 


K 


040232 


R 


OAC 


BSim 


2845 


02560 


R 


210066 


A 


LAC 


Q-f21,X 


2846 


02561 


R 


040233 


R 


DAC 


BTERM 


2B47 


02562 


R 


210067 


A 


LAC 


Q+22,X 


2848 


02563 


R 


040234 


R 


DAC 


BVAL 


2849 


02564 


R 


210070 


A 


LAC 


Q+23,X 


2850 


02565 


P 


040235 


R 


OAC 


FOR\^AR 


2851 


02566 


R 


210071 


A 


LAC 


+ 24, X 


2852 


02567 


R' 


040236 


R 


DAC 


PROG 


2853 


02570 


R 


210072 


A 


LAC 


Ql'25,X 


2854 


02571 


R 


040237 


R 


OAC 


PUSER 


2855 


02572 


R 


210073 


A 


LAC 


Q+26,X 


2856 


02573 


P 


040240 


R 


DAC 


ID 


2857 


02574 


R 


210074 


A 


LAC 


Q+27,X 


2858 


02575 


R 


040241 


R 


DAC 


USER 


2859 


02576 


R 


210075 


A 


LAC 


Q+30,X 


2860 


02577 


R 


040242 


R 


OAC 


BKCHAR 


2861 


02600 


R 


210076 


A 


LAC 


Q+31,X 


2862 


02601 


R 


040243 


R 


DAC 


Tl 


2863 


02602 


R 


210077 


A 


LAC 


Q+32,X 


2864 


02603 


R 


040244 


R 


DAC 


T2 


2865 


02604 


R 


210100 


A 


LAC 


Q+33,X 


2866 


02605 


R 


040245 


R 


DAC 


T3 


2867 


02606 


R 


210101 


A 


LAC 


Qt34,X 


2B6B 


02607 


R 


040246 


R 


OAC 


IFSWT 


2869 


02610 


R 


210102 


A 


LAC 


Q+35,X 


2870 


02611 


R 


040247 


R 


DAC 


GUN IT 


2871 


02612 


R 


210103 


A 


LAC 


Q+36,X 


2872 


02613 


R 


040250 


R 


DAC 


80NIT 


2873 


02614 


R 


210104 


A 


LAC 


Q-«-37,X 


2874 


02615 


R 


040251 


R 


DAC 


G8LKHI 


2875 


02616 


R 


210105 


A 


LAC 


Q+40,X 


2876 


02617 


R 


040252 


R 


DAC 


GHI 


2877 


2 6 20 


R 


210106 


A 


LAC 


iH41,X 


2£^78 


0?621 


P 


04025 3 


R 


OAC 


GHKAD 


2879 


02522 


R 


210107 


A 


LAC 


Q+42,X 


2880 


02623 


R 


040254 


R 


DAC 


GSy^BOL 


2883 


02624 


R 


210110 


A 


LAC 


Q+43,X 


2?^82 


02625 


R 


040255 


R 


DAC 


GHDOLD 
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/*12JAH17* 
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/*12JAH17* 
/*12JAH17* 
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/*12JAH17* 
/=<^12JAH17* 
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/*12JAH17* 
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100 
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2883 


02526 


R 


210111 


A 


L.AC 


Q+44,X 


2884 


02627 


R 


047041 


R 


OAC 


'^RPART 


28B5 


02530 


R 


210112 


A 


LAC 


Q+45,X 


2886 


02631 


R 


046621 


R 


DAC 


CONT 


2887 


02632 


R 


210113 


A 


LAC 


Q+46,X 


2888 


02633 


R 


046203 


R 


OAC 


80 OL 


2889 


26 3 4 


R 


210114 


A 


LAC 


0+47, X 


2890 


02635 


R 


040256 


R 


DAC 


800LL 


2891 


02636 


R 


210115 


A 


LAC 


Q+50,X 


2892 


02637 


R 


040260 


R 


DAC 


aOOLE 


2893 


02540 


R 


210116 


A 


LAC 


QfSUX 


2894 


02641 


R 


040262 


R 


DAC 


BOQLG 


2895 


02642 


R 


210117 


A 


LAC 


Q+52,X 


2896 


02643 


R 


044770 


R 


DAC 


CHARl 


2897 


02644 


R 


210120 


A 


LAC 


Qt5 3.X 


2898 


02645 


R 


045014 


R 


DAC 


CHAR2 


2899 


02646 


R 


210121 


A 


LAC 


Q+54,X 


2900 


02647 


R 


045201 


R 


OAC 


CHECK 


2901 


02650 


R 


210122 


A 


LAC 


Q+55,X 


2902 


02651 


R 


043535 


R 


OkC 


DISPAT 


2903 


02652 


R 


21012 3 


A 


LAC 


Q-»'56,X 


2904 


02653 


R 


040264 


R 


OAC 


D I SLOP 


2905 


02654 


R 


210124 


A 


LAC 


Q+57.X 


2906 


02555 


R 


043641 


R 


DAC 


PRODA 


2907 


02656 


R 


210125 


A 


LAC 


Q+60,X 


2908 


02557 


R 


044340 


R 


DAC 


PLACE 


2909 


02660 


R 


210126 


A 


LAC 


Qf6UX 


2910 


02661 


R 


044645 


R 


DAC 


OCHAR 


2911 


02662 


R 


210127 


A 


LAC 


Qf62,X 


2912 


02663 


R 


044660 


R 


DAC 


GCHARI 


2913 


02664 


R 


210130 


A 


LAC 


Q+63,X 


2914 


02665 


R 


044710 


R 


DAC 


SU80PT 


2915 


02666 


R 


210131 


A 


LAC 


Q+64,X 


2916 


02667 


R 


045040 


R 


DAC 


SAVE 


2917 


02670 


R 


210132 


A 


LAC 


Q+65.X 


2918 


02671 


R 


045103 


R 


OAC 


UMSAVE 


2919 


02672 


R 


210133 


A 


LAC 


Q-l'66,X 


2920 


02673 


R 


045123 


R 


DAC 


STEP 


2921 


02674 


R 


210134 


A 


LAC 


Q+67,X 


2972 


02675 


R 


045151 


R 


OAC 


PART 


2923 


02676 


R 


210135 


A 


LAC 


Q+70,X 


2924 


02577 


R 


047163 


R 


DAC 


EVAL 


2925 


02700 


R 


210136 


A 


LAC 


Q+71,X 


2926 


02701 


R 


045434 


R 


OAC 


SYMBOL 


2927 


02702 


R 


210137 


A 


LAC 


Q+72.X 


2928 


02703 


R 


043724 


R 


DAC 


SYNTAX 


2929 


02704 


R 


210140 


A 


LAC 


Q+73,X 


2930 


02705 


R 


043744 


R 


DAC 


STORl 


2931 


02706 


R 


210141 


A 


LAC 


Q+74,X 


2932 


02707 


R 


044034 


R 


OAC 


ST0R2 


2933 


02710 


P 


210142 


A 


LAC 


Q+75,X 


2934 


02711 


R 


044103 


R 


DAC 


DEC IN 
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/=*=12JAH1 
/*12JAHl 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/=»=i2JAHl 
/*12JAH1 
/*12JAH1 
/'KnJAHl 
/*12JAH1 
/*12JAH1 
/=t^l2JAHl 
/*12JAHi 
/*12JAH1 
/*12JAH1 
/*i2JAHl 
/*12JAH1 
/*12JAH1 
/♦12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/=5=12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/*12JAH1 
/4:12JAH1 
/*12JAH1 
/*12JAH1 



7* 

7* 

7* 

7* 

7* 

7* 

7* 

1^ 

7* 

7* 

7* 

/*12JAH17=*= 

/*12JAH17* 

7* 

7* 

7* 

7* 

7* 

7* 

7* 

7* 

7* 

1^ 

7* 

7* 

7:^ 

■j^ 

7* 
7* 
7* 
7* 
7* 
7tc 
74: 
7* 
7* 
7* 
7* 
7* 
1^ 
7* 
7* 
74: 

7^! 

7* 
7* 

7* 
1^ 
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^I'L'MPS 


100 


^^OMITOR 






2935 


02712 


R 


210143 


a 


LAC 


Q+7 6,X 


2936 


02713 


R 


044255 


R 


DAC 


OECOUT 


2937 


02714 


R 


210144 


A 


uAC 


Q-f-77,x 


2938 


02715 


R 


044320 


R 


OAC 


OCTOUT 


2939 


02716 


R 


210145 


A 


LAC 


Q+100,X 


2940 


02717 


R 


046673 


R 


DAC 


FORMAT 


2941 


02720 


R 


210146 


A 


LAC 


Q+10l,X 


2942 


02721 


R 


045304 


R 


OAC 


ASSEM 


294B 


02722 


R 


210147 


A 


LAC 


Q+102,X 


2944 


02723 


R 


040266 


R 


DAC 


GASS 


2945 


02724 


R 


210150 


A 


LAC 


Q-H03,X 


2946 


02725 


R 


043174 


R 


DAC 


OUT 


2947 


02726 


R 


210151 


A 


LAC 


Q+104,X 


2948 


02727 


R 


044725 


R 


OAC 


ICHARI 


2949 


02730 


R 


210152 


A 


LAC 


ati05,x 


2950 


02731 


R 


044235 


R 


DAC 


DEC2 


2951 


02732 


R 


210353 


A 


LAC 


Q+106,X 


2952 


02733 


R 


043325 


R 


DAC 


PACKEM 


2953 


02734 


R 


210154 


A 


LAC 


Q+ 107.x 


2954 


02735 


R 


047066 


R 


DAC 


>^RSTEP 


2955 


02736 


R 


210155 


A 


LAC 


Q+110,X 


2956 


02737 


R 


043712 


R 


DAC 


OTEXT 


2957 


02740 


R 


210156 


A 


LAC 


Q+lll.X 


295R 


02741 


R 


045363 


R 


DAC 


SVE 


2959 


02742 


R 


210157 


A 


LAC 


Q+112,X 


2960 


02743 


R 


047107 


R 


DAC 


SETIO 


2961 






000157 


A Q = Q+n2 






2962 










.IFPNZ 


DTA 


2963 






000160 


A Q=Q+1 






2964 


02744 


R 


210160 


A 


LAC 


Q,X 


2965 


02745 


R 


043701 


R 


DAC 


LOKDT 


2966 










.EWDC 




2967 


02746 


R 


210161 


A 


LAC 


Q + 1,X 


296B 


02747 


R 


045272 


R 


DAC 


KEYCHK. 


2969 


02750 


R 


210162 


A 


LAC 


Q + 2,X 


2970 


02751 


R 


045242 


R 


DAC 


GETKEY 


2971 


02752 


R 


210163 


A 


LAC 


Oi-3,X 


2972 


02753 


R 


047021 


R 


DAC 


TSTR 


2973 


02754 


R 


210164 


A 


LAC 


Q + 4,X 


2974 


02755 


R 


040270 


P 


DAC 


GSYM 


2975 


02756 


R 


210165 


A 


LAC 


Q + 5,X 


2976 


02757 


R 


040272 


R 


DAC 


GLOBAL 


2977 


02760 


R 


210166 


A 


LAC 


Q + 6,X 


297B 


02761 


R 


044357 


R 


DAC 


PLACl 


2979 






000166 


A Q=0+6 






2980 










.JFPNZ 


vlODlFY 


2981 






000167 


A Q=0+1 






2982 


02762 


R 


210167 


A 


LAC 


Q,X 


29B3 


02763 


R 


044616 


R 


DAC 


ERMOD 


2984 


02764 


R 


210170 


A 


LAC 


Q + l,x 


2995 


02765 


R 


044573 


R 


DAC 


^aUF2 


2986 






000170 


A 3=Q+1 







/* 
/if. 

/^ 
/* 
/* 
/-^ 
/^ 
/^ 
/* 
/* 

/* 

/*12JAH17* 
/^ 
/* 
/^ 
/^ 

/* 
/% 

/* 
/* 

/* 
/* 
/* 
/* 

/* 

/* 

/* 

/*12JAH17* 

/* 

/* 



12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17: 
12JAH17=<^ 
12JAH17* 
12JAH17* 
12JAH17: 
12JAH17* 
12JAHi7: 
12JAH17: 
12JAH17: 

12JAH17: 
12JAH17'^ 
12JAH17: 
12JAH17* 
12JAH17: 
12JAH17* 
12JAH17'«= 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17=»^ 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH17* 
12JAH174= 
12JAH17* 
12JAH17=<« 
12JAH17* 
12JAH17=«' 
12JAH171' 
12JAHi7* 

12JAH17* 
12JAH17* 
12JAB17* 
12JAH17=^ 
12JAH17* 
12JAH17=*^ 
12JAH17=*^ 
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MUMPS 


100 


MO MI TOR 








2987 










LAC 






2988 


02766 


R 


210171 


A 


^■«-l,X 


Lfr-C 


2989 


8 02767 


R 


050005 


R 


r^DAC 


REMOVE^ 


t — TTV^Cr^ 


2990 


02770 


R 


210172 


A 


LAC 


Q + 2,X 




2991 


02771 


R 


060274 


R 


/ DAC* 


PTEMPX 


tAA^t VUf 


2992 


02772 


R 


210173 


A 


LAC 


Q+3,X 


2993 


02773 


R 


060276 


R 


DAC* 


PROCNTX 


\ 


2994 


02774 


R 


210174 


A 


LAC 


Q-«-4,x'^ 


J UC (f 


2995 


02775 


R 


060275 


R 1 


OAC* 


PBOOLxf 


ERA 


2996 








^ ,EBREL 


• 


E8A ^ - 




02776 


R 


707764 


A 






DikC i 


2997 


27 7 7 


R 


622327 


R 


JMP^ 


s^pin 




2999 










.EJECT 










^tVHJ\/t 



/*12JAH17* 
/*12JAH17* 

/*12JAH17* 
/*12JAH17* 
/=fl2JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17'*= 
/*12JAH17* 
/^12JAH17* 



•^ IP 



n^ 
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2999 
3000 
3001 
3002 

3003 
300 A 

3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
30 31 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3 4 8 
3049 
3050 



MU:vips 100 ^OMITGR 

003000 R SWPIN3= 
03000 R 701742 A 



03001 
03002 
03003 
03004 
03005 
03006 
03007 
3 010 
03011 
03012 
03013 
03014 
03015 
03016 
3017 
03020 
03021 
03022 
03023 
03024 
03025 
03026 
03027 
03030 
03031 
03032 
03033 
03034 
03035 
03036 
03037 
03040 
03041 
03042 
03043 
03044 
03045 
03046 
03047 
n3050 
3051 



200 
652 
200 
721 
200 
722 
200 
040 
750 
040 
440 
740 
234 
060 
200 
353 
040 
234 
060 
234 
060 
234 
060 
220 
741 
603 
205 
040 
160 
160 
603 
200 
540 
603 
220 
513 
741 
603 
260 
060 
000 
003 



157 

000 
160 
000 
161 

000 A 

721 R 

656 R 

030 A 

652 R 

173 R 

000 A 

047 E 

147 R 

136 R 

706 R 

Oil A 
051 
Oil 
052 
Oil 
053 
Oil 

J 54 R 

300 A 

040 R 

103 R 

220 R 

220 R 

144 R 

434 R 

577 R 

654 R 

062 R 

654 R 

642 R 

200 A 

052 R 

654 R 

654 R 

023 A 

052 R 



.TFPNZ XVM ^ 






n f ' 



S'^PIUO 



SVVP0K=, 



03052 ^ 200020 A 

03053 R 040573 R 

03054 R 000000 A 

03055 R 200573 R MEXEC 

03056 R 040020 A 



lAC 



Hpeu 

.EMDC 

LAC 

LMQ 

LAC 

PAX 

LAC 

PAL 

LAC 

DAC 

CLA 

DAC 

IvSZ 

NOP 

LAC* 

OAC* , 

LA.C 

TAD 

DAC 

LAC* 

DAC* 

LAC* 

DAC* 

LAC* 

DAC* 

LAC* 

SPA-iSMA 

jr^p 

LAC 

DAC 

DZM* 

DZM* 

JMP 

LAC 

SAD 

JMP 

LAC* 

AI^D 

SNA 

JMP 

XOR* 

DAC* 

ERR23 

•IFPNZ 

LAC 

DAC 

CAL 

LAC 

DAC 



MQ 
XR 
LR 

TIMESL 

RUMDOWW 

S=^APS^ 
S^ilPC^JT 



CLOCK 

TVAR 

AVAR 

(-5 

R 1 1 

DATE 

Rll 

DATE.l 

Rll --^ 

DATE. 2 

Rll 

PRTEND 



S^PINO 
UNSAVE 
IPOIMT 
IPOINT 

ALTMOD 
DSKACT 
PRTI^MB 
SWP0K2 
PRTNMB 
(40000 

SWPOK 

PRTNMB 

PRT'^iMB 



R20 
KEEP20 

KEEP20 
R20 



/EWTER USER MODE 



/*12JAH15* 
/*12JAH15* 
/*i2JAH15* 
/*12JAH15* 
/*12JAH15* 



^% 



/RESTORE m. 
/RESTORE X REG 

/RESTORE L REG 



/SET SLICE 
/MAKE SW'APPABLE 

/UPDATE TIME 



-S 



—, .A. P 



/UPDATE DATE 



/DID K'E UNHANG BECAUSE 3F %i^ VIOLATION 

/MO. 

/YES, RESET INPUT BUFFER POINTER 

/MAKE SURE IT INDICATES NULL STRING. 

/SET %ii TO INDICATE QVERFLO*^, 

/FAKE EOL CEMD OF LINE) 

/IS THIS USER I^ MIDDLE 

/OF LOGICAL DISK ACTIVITY? 

/tES» INHIBIT IOINT,EM£R CLOSE TEMPORARILY 

/LOOK FOR lOINT 

/no lOINT -- GO CONTINUE 
/CLEAR lOINT BIT 



/GIVE HIM THE lOIMT 



/SAVE LOCATION 20 v^HICH IS 

/DESTROYED BY CAL 

/GO INTO EXEC MODE 

/RESTORE LOCATION 20 

/TO A'HAT IT WAS BEFORE CAL 



/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
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2 MU^PS 


100 


mHlTQR 






3051 












.ENDC 




3052 


03057 


R 


200570 


R 




LAC 


eiERG 


3053 


03060 


R 


740200 


A 




SZA , 




3054 


03061 


p^ 


603067 


R 




JNIP 


Si^PlM2 


3055 


03062 


R 


203101 


R 


^ SWP0K2 


LAC 


lOUT 


3056 


03063 


R 


043175 


R 




OAC 


QUT+1 


3057 


03064 


R 


200156 


R 


SWPINl, 


LAC 


AC 


305S 


o^vp" 3065 
03066 


R 


707742 


A 




RRS 




3059 


R 


620155 


R 




JMP't^ 


PC 


3060 










/ 






3061 


03067 


R 


213707 


R 


S\tiPl^2 


LAC 


(JMP^ 


3062 


03070 


R 


043175 


R 




OAC 


OUT + l 


3063 












.IFPNZ 


XVM 


3064 


03071 


R 


701742 


A 




MPEU 




3065 












.EMDC 




3066 


03072 


R 


777777 


A 




LAi^ 


-1 


3067 


03073 


R 


060154 


R 




DAC* 


PRTEWD 


3068 


03074 


R 


220654 


R 




LAC* 


PRTMMR 


3069 


03075 


R 


513710 


R 




Af\iD 


(1000 


3070 


03076 


R 


744200 


A 




SZAiCLL 




3071 


03077 


R 


603064 


R 




JMP 


SWPINI 


307? 


03100 


H 


634111 


E 




JMP* 


HALTl 


3073 


03101 


R 


513702 


R 


I OUT 


AND 


(77 



/*12JAH15* 
/EMERGENCY CLOSE? /*12JhH15^ 

/*12JAH10* (SWITCH 6) 
/YES. 
/NO, MAKE OOT PRIMT /^12JkHll* 

/RESTORE AC 

/RESTORE LINK, 6AIMK/PA3E MODE 

/EXIT 

GUT /MAKE "OUT" MOM-PRINTI MG SO UO OUTPUT HAMGi 

/=«^12JAH151= 

/ENTER 'JSER MOOE /*12JA915* 

/4tl2JAH15'!^ 
/I SEC C5JTD0^'M TO WATCHDOG FOR 
/NOISY DOOIS OR IDLE TERMINALS 



/IN HALTER? /*12JAH15* 

/YES /*12JAH15* 
/*12JAH12* NO 

/IST IMST OF SU8R "OUT" /*12JAH17=<= 
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wiJMPS 100 



SLEEP HONG PARTITION UPOATER 



3074 
3075 
3076 
3077 
3078 
3079, 
3080 
30«1 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3 1 1 1 
3112 
3 1 1 3 
3114 
3U5 
3316 
3117 
3 1 1 8 
3139 
3120 
3121 
3122 
3123 
3124 
3125 



3102 
03103 
03104 
03105 
03106 
03107 
03110 
03111 
03112 
03113 
03114 
03115 
03116 
03117 
03120 
03121 
03122 
03123 
03124 
03125 
03126 
03127 
03130 
3131 
03132 
03133 
03134 
03135 
03136 
03137 
03140 
03141 
03142 
314 3 
031 44 

03145 
03146 
03147 
^3150 
03151 
03152 
315 3 
03154 



213 
040 
220 
742 
741 
603 
741 
603 
200 
740 
540 
601 
603 
103 
200 
350 
050 
707 
741 
603 
777 
705 
520 
060 
705 
603 
103 
210 
740 
603 
340 
050 
751 
603 
050 
203 
705 
520 
060 
705 
707 
603 
441 



665 
572 
572 
020 
420 
117 
400 
134 
572 
030 
330 
562 
103 
155 
571 
000 
000 
764 
100 
112 
775 
522 
572 
572 
521 
112 
155 
001 
100 
152 
571 
001 
130 
152 
001 
154 
522 
572 
572 
521 
764 
112 
001 



/ 

/THIS 

/HUNG 

/STATU 

/INCRE 

/OF PA 

/AMD 

/ 

SLPCHK 

SLPCKl 



.TITLE SLEEP HU^G PARTITION UPDATER 

ROUTINE CHECK EACH PARTITION TO SEE IF IT IS CLOCK 
(BIT 16 OP STATUS «^'ORD SET) OR OCOl HUNG (BIT 15 OF 
S i^ORD SET) tftllTH MEGATIVE WATCHDOG COUNT. IT i^^ILL. 
mUT EITHER THE CLOCK HUNG WORD (NEXT TO LAST ^QRO 
RTITION) OR %WATCHDOG COUNT (LAST WORD OF PARTITION) 
N OVERFLOW REMOVE THE APPROPRIATE HANG BIT 



SLPCK2 



SLPHNG 



WATHNG 



y^lATHl 

^MASK 



LAC 

DAC 

LAC* 

RTR 

SZLiRAR 

JNP 

SZL 

JMP 

LAC 

TAC 

SAD 

JMP 

JMP 

JMS 

LAC 

TAD 

DAC 

EBA 

SPA 

JMP 

LA'W 

INTOFF 

hHD^ 

DAC^ 

I.MTOW 

JMP 

J^^S 

LAC 

SMA 

JMP 

TAD 

DAC 

SPAiCLAi 

JMP 

DAC 

LAC 

INTOFF 

AND=«= 

DAC* 

IMTQ^J 

EBA 

J'^P 

441001 



(STATl 
SLPTMP 
3LPTWP 



SLPHMG 

^'ATHNG 
SLPT.MP 

STATX 

STACHO 

SLPCKl 

SETPRT 

SLPCNT 

0,X 

O.K 



SLPCK2 
17775 

SLPTMP 
SLPTMP 

SLPCK2 
SETPRT 
i.X 

'^ATHl 

SLPCMT 

1,X 

I AC 

WATHl 

l.X 

;rvlASK 

SLPTNP 

SLPT^^P 



SLPCK2 



/START OF PARTITION' STATUS *^0R 

/mVE TO NEXT PARTITION /*12JA 

/FETCH PARTITIOfM STATUS '^ORO 

/N?OVE CLOCK HAf^G SIT TO LTMK 

/CLOCK HUMG? MOVE %^ BIT TO LI 

/YES, GO INCREN^E^JT SY^EMO 

/%'^ATCHDOG? 

/YES, GO IMCRE^^ENT PRTE'MD 

/FETCH STATUS vvORD PTR 

/ADVANCE TO WEXT STATUS ^ORD 

/END OF TABLE? /*12JA 

/YES 

/no, GO CHECK ^3EXT PARIITIOM 

/SET UP PTR TO SYl^EMD 

/FETCH SECONDS SINCE LAST UPDA 

/BUNP HAMG 

/TIME LOCATION 

/NO MORE NEED OF XR 

/HANG TIME OVERFLOW? 

/MO 

/YES 

/ALTERING STATUS WORD 

/CLEAR HANG TI^^E BIT 

/IMSERT m^ STATUS i%'ORD 

/DONE 

/GO CHECK NEXT PARTITION 

/SET UP PTR TO SY^ENO 

/FETCH %wATCHDOG RUwDOW^?! 

/ANY RUNDOWN 

/NO 

/ADD SECONDS SINCE LAST UPDATE 

/UPDATE SYMEND IN PARTITION 

/%W OVERFLOW? 

/NO 

/YES, INSERT +1 TO SHOW OVERFL 

/SAVE I-^ODE.IOINT. TRA.NS, RUN 

/ALTERING STATUS WORD 

/CLEAR ALL HANG BITS 

/UPDATE STATUS v^ORD 

/COME ALIVE AGAIN 

/ 

/CHECK NEXT PARTITION 

/MASK OF I-MODE, IOI^IT, TRANS, 



/'M2JAH17=«' 
/*12JAH17* 
/^12JhHn^ 
/^12JkHnt 
/*12JAH17=^ 
/*12JAH17* 
/*12JAH17* 

DS /*12JAH17* 
H17* 

/*i2JAH17'*= 

/*12JAH17=^ 
NK /*12JA^)l7=^ 

/*12JAH17* 

/*12JAH17* 

/*12JAH17=^ 

/*12JAH17* 

/'i^l2JAH17* 
ril7* 

/*12JAH17* 

/*12JAH17* 

TE/*12JAH17=*= 

/♦12JAH17* 

/*12JAH17* 

/*12JAH17* 

/'^'UJAHU* 

/*12JAH17* 

/*12JAH17* 

/=!'12JAH17t' 

/=!^12JAH17* 

/*12JAH17=t^ 

/*12JAH17* 

/*12JAH17* 

/*12JAH17* 

/=»=12JAH17* 

/*12JAH17* 

/*12JAH17* 

/*12JAHi7* 

/*12JAH17* 

/*12JAH17* 

/*12JAH17* 
0-^ /=^12JAH17=*^ 
BITS /*12JAH17=»: 

/*12JAH17'S' 

/*12JAH17* 

/♦12JAH17* 

/*12JAH17*= 

/*12JAH17* 

/*12JAH17=t= 
& RUN /.=*:12JAH17* 
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wij^PS 100 



3126 










312? 


03155 


R 


000000 


A 


3128 


03156 


R 


200572 


R 


3129 


03157 


R 


353676 


R 


3130 


03160 


R 


040567 


R 


3131 


3161 


R 


353700 


R 


3132 


03162 


R 


040566 


R 


3133 


03163 


R 


200567 


R 


3134 


03164 


R 


354142 


E 


3135 


03165 


R 


040567 


R 


3136 


03166 


R 


220567 


R 


3137 


03167 


R 


360566 


R 


3138 


03170 


R 


723776 


A 


3139 


03171 


R 


721000 


A 


3140 


03172 


R 


707762 


A 


3141 


03173 


R 


623155 


R 



SLEEP HUNG 



/ 

SETPRT 



PARTITION UPDATER 









/SET UP 


LAC 


SLPTMP 


/FETCH 


TAD 


('STATl 


/START 


DAC 


STEMP2 


/PARTI T 


TAD 


(INDTAB 


/PART. 


DAC 


STEMP 


/PTF TO 


LAC 


STEN!P2 


/PART IT 


TAD 


PASTAR 


/PART. 


OAC 


STEMP2 


/PTR TO 


LAC'S' 


STENiP2 


/PART, 


TAD4^ 


STEMP 


/PART. 


AAC 


-2 


/SYMEMD 


PAX 




/XR ro 


DBA 




/ 


JMP* 


SETPRT 


/RETQRM 



PTR TO SYMENO 
STATUS ^ORD PTR 
OF STATUS wORO TABLE 
ION NUMBER 
STARTING ADOR TABLE 

STARTING ADOR OF PART 
ION NUMBER 
SIZE TA8LE 

PART. SIZE 
SIZE 
START 

= MEXT TO LAST LOC OF 
HOLD SYMEND ADOR 



/*1 
/*1 
/*1 
/^l 
/*1 
/=*=1 
/*1 
/^l 
/*1 

/^i 

PART 
/^l 
/*l 
/*! 



2JAH17=*= 

2JAH17* 

2JAH17* 

2JAH17'P 

2JAH17* 

2JAH17=^ 

2JAH17'^ 

2JAH171' 

2JAH17'S' 

2JAH17* 

2JAB171' 

/*12JAH171' 

2JAH17* 

2JAH17* 

2JAH17* 



PkGE 85 MUMPS 100 IWPUT/OUlPUT SUBROUTIi^KS 

3142 .TITLE If^lPUT/OUTPUT SU6R0uTTMES 

3143 / 

3144 /OUTPUT SUBROUTTNS 

3145 / 

3146 03174 R 000000 A OUT /*12JAH17* 

3147 03175 R 513702 R XOUT AND (77 /NASK THE 6-BIT CHAR I^J AC AND 
314R 03176 R 652000 A LMQ /SAVE IM MQ. 

3149 03177 R 200164 R LAC GUTPlFT /CHECK DEVICE TYPE 

3150 03200 R 543324 R SAD .JCFNl /=*=12JAH12* 

3151 03201 R 603322 R JMP XOUTIO /THIS IS $C FUMCTIOf^ 

3152 .IFPNZ DTA 

3153 03202 R 543203 R SAD DTJMPO 

3154 03203 R 634066 E DTJMPO JMP* DTOiJTl /I'^E'RE PUTTING STUFF T3 OT 

3155 ,EMDC 

3156 03204 R 353711 R TAD (" JMP-3UTTAB-NUHAT 

3157 03205 R 745100 A SPA'CLL 

3158 03206 R 603214 R JNP XOUTl /TTY - GO SEE IF LEA0IM3 SPACES NEEDED 

3159 .IFPNZ DTA 

3160 03207 R 353712 R TAD (-OTA 

3161 03210 R 745100 A SPAiCLL 

3162 03211 R 600164 R JMP OUTPUT /DECTAPE 

3163 .EWDC 

3164 03212 R 741200 A SNA /PT? 

3165 03213 R 603320 R JMP X0UT9 /YES 

3166 03214 R 641002 A XOUTl LACQ 

3167 03215 R 144710 R DZM SUBQPT /O THE SPACIf^G COUNTER 
316B 03216 R 044770 R DAC CHARl 

3169 03217 R 553653 R SAD (40 

3170 03220 R 603267 R J^^P X0UT6 /SPACE - CHECK RIGHT MARGIM 

3171 03221 R 745202 A SMAISTL 

3172 03222 R 603277 R JMP X0UT7 /CR 

3173 03223 R 553713 R SAD (34 

3174 03224 R 603314 R JMP X0UT8 /FF 
317 5 / 

3176 03225 R 220141 R X0UT2 LAC=^ "^IVAR 

3177 03226 R 745101 A SPAiCMAlCLL 

3178 03227 R 750001 A CLC /MEG %M IGNORED 

3179 03230 R 740030 A lAC 

3180 03231 R 360150 R TAD=*= XVAR 

31 Bl 03232 R 044710 P DAC SU80PT /SPACE COUNT * 144 

3182 03233 R 220150 R X0UT4 LAC* XVAR /INCREMENT SX 

3183 03234 R 723144 A AAC 144 

3184 03235 R 060150 R DAC* XVAR 

3185 03236 R 204770 R X0UT5 LAC CHARl /OUTPUT CHAR.., 

3186 03237 R 744400 A S^JLiCLL 

3187 03240 R 213653 R LAC (40 /...OR SPACE 

3188 03241 R 745200 A X0UT5A SMA'CLL /EOM? 

3189 03242 R 760015 A LA'a* 15 /CONVERT TO CR 

3190 03243 R 553713 R SAD (34 

3191 03244 R 760014 A LAa' 14 /FF 

3192 03245 R 745100 A SPA'CLL 

3193 03246 R 603251 R JMP .+3 



PAGE 86 


^U^PS 


100 


INPUT/OUTPUT SUBROUTINES 


31.94 


03247 


R 


253653 


R 


X0UT5B 


XOR 


(40 


3195 


03250 


R 


313653 


R 




ADD 


(40 


3196 


03251 


R 


513714 


R 




AND 


(177 


3197 


03252 


R 


652000 


A 




LMQ 




3198 


03253 


R 


200020 


A 


X0UT4A 


LAC 


R20 


3199 


03254 


R 


600164 


R 




JMP 


OUTPUT 


3200 










/ 






3201 


03255 


ft 


744000 


A 


X0UT3 


CLL 




3202 


03256 


R 


220142 


R 




LAC* 


FVAR 


3203 


03257 


R 


741200 


A 




SNA 




3204 


03260 


R 


623174 


R 


XOUTDT 


JMP* 


OUT 


3205 


03261 


R 


204710 


R 




LAC 


SUBOPT 


3206 


03262 


R 


353715 


R 




TAD 


(144 


3207 


03263 


R 


044710 


R 




OAC 


SUBOPT 


3208 


03264 


R 


740300 


A 




SZAISNA 




3209 


03265 


R 


623174 


R 




JMP* 


OUT 


3210 


03266 


R 


603233 


R 




JMP 


X0UT4 


3211 










/ 






3212 


03267 


R 


220142 


R 


X0UT6 


LAC* 


FVAR 


3213 


03270 


R 


741201 


A 




cnkisuk 




3214 


03271 


R 


603225 


R 




JMP 


X0UT2 


3215 


03272 


R 


320150 


R 




ADD* 


XVAR 


3216 


03273 


R 


313715 


R 




ADD 


(144 


3217 


03274 


R 


741100 


A 




SPA 




3218 


03275 


R 


603225 


R 




jm 


X0UT2 


3219 


03276 


R 


144770 


R 




DZM 


CHARl 


3220 










/ 






3221 


03277 


R 


213715 


R 


X0UT7 


LAC 


(144 


3222 


03300 


R 


060150 


R 




DAC* 


XVAR 


3223 


03301 


R 


320151 


R 




ADO* 


YVAR 


3224 


03302 


R 


060151 


R 




DAC* 


YVAR 


3225 


03303 


R 


220140 


R 




LAC* 


PVAR 


3226 


03304 


R 


745202 


A 




SNAiSTL 




3227 


03305 


R 


603236 


R 




JMP 


X0UT5 


3228 


03306 


R 


740001 


A 




CMA 




3229 


03307 


R 


320151 


R 




ADD* 


YVAR 


3230 


03310 


R 


745102 


A 




SPA i STL 




3231 


3 311 


R 


603236 


R 




JMP 


XQUT5 


3232 


03312 


R 


213713 


R 




LAC 


(34 


32 3 3 


03313 


R 


044770 


R 




DAC 


CHARl 


3234 










/ 






3235 


03314 


R 


213715 


R 


X0UT8 


LAC 


(144 


3236 


03315 


R 


060151 


R 




OAC* 


YVAR 


3237 


03316 


R 


060150 


R 




DAC* 


XVAR 


3238 


03317 


R 


603236 


R 




JMP 


X0UT5 


3239 










/ 






3240 


03320 


R 


641002 


A 


X0UT9 


LACQ 




3241 


03321 


R 


603241 


R 




JMP 


X0UT5A 


3242 










/ 






3243 


03322 


R 


641002 


A 


XOUTIO 


LACQ 




3244 


03323 


R 


600164 


R 




JMP 


OUTPUT 


3245 


03324 


R 


634046 


e 


.JCFNl 


JMP* 


CFUMl 



/CONVERT TO 7-8IT. 

/RUBOUT 

/GO TO 10 RUUTIME 'WITH DEVICE # 



/ TT RETURN HERE 

/IGNORE SPACE COUf^T IF %F = 



/I^JCREME^[T SPACE COUMTSR 

/FINISHED 

/LIMK TRANSMITS y^HETHER SPACE OR CHAR InAMTED 

/SPACES COME HERE 

/IGK'ORE %F IF IT IS 

/RIGHT MARGIi^ CHECK 

/FULL LINE? 

/HO 

/YES - CHANGE TO CR 

/CR 



/GET PAGE LENGTH, 
/%p=0 - OUTPUT CR 

/$Y<%P - OUTPUT CR 

/CHANGE CR TO FF 

/FF 

/RESET LINE NO. ($Y) 

/RESET CHAR. POSITION ($X) 

/PAPER TAPE 

/SCHAR FUNCTION 
/*12JAH12* 



PaG>=: 87 MU^PS 100 INPUT/OUrPUT SUBROUTIaIES 
3246 .EJECT 



PAGe 88 ^UMPS 100 I^?PUT/DUXPUT SUBROUTI^JES 

3247 /INPUT SUBROUTINE 

3248 / 

3249 03325 R 000000 A PACKE^^ /*12JAH17* 

3250 03326 R 045103 R DAC ^;^ISAVE /ADDR. OF 1ST ^ORO I^ 3'UFFER /*12JAH17* 

3251 03327 R 540133 R SAD BUFF2 /STRING SUFFER? 

3252 03330 R 723000 A AAC STRACC-CO^vibuFF /YFS 

3253 03331 R 723030 A AAC COMBUFF-l 

3254 03332 R 045040 R DAC SAVE /ADDR. OF LAST s^O. IM BUFFER. 

3255 03333 R 650000 A CLQ /MAKE SURE THERE IS M3 CO!MFUSI0-M lU MO 

3256 03334 R 200020 A XPACK2 LAC R20 /20 COMTAINS DEVICE NUMBER 

3257 03335 R 600163 R JMP INPUT /SETIO STORES "JMP IMTABfDEV" 

3258 / 

3259 /JMP TQ KEY FROM EACH IMPUT 1/3 PACKAGE 

3260 / 

3261 03336 R 553714 R KE^ SAD (177 /RUBOUT 

3262 03337 R 603441 R JMP RUB 

3263 03340 R 553701 R KEY. 2 SAD (175 /ALT^OD, ESC , EON 

3264 03341 R 603434 R JMP ALTMQD 

3265 03342 R 553716 R SAD (15 /CR 

3266 03343 R 603430 R JNP KEYCR 

3267 03344 R 553717 R SAO (134 /BACKSLASH 

3268 03345 R 603405 R JHP DEL 

3269 03346 R 553720 R SAD (14 /FORMFEED 

3270 03347 R 213717 R LAC (134 

3271 03350 R 553721 R SAD (23 /X-OFF 

3272 03351 R 603334 R JMP XPACK2 /IGMORE X-OFF 

3273 03352 R 353722 R TAD (-33 /TRANSLATE CONTROL LETTER 

3274 03353 R 741100 A SPA /TO PRINTABLE LETTER 

3275 03354 R 353723 R TAD (100 

3276 03355 R 353724 R TAD (33 

3277 03356 R 353725 R TAD (777640 /A0137 

3278 03357 R 744100 A SNAICLL 

3279 03360 R 603334 R JMP XPACK2 /CHAR. NOT IN CHAR SET. 

3280 03361 R 353723 R TAD (100 /AC<40 

3281 03362 R 253653 R XOR (40 /AC=100 

3282 03363 R 745300 A SPA'SNAiCLL 

3283 03364 R 603334 R JMP XPACK2 

3284 03365 R 104725 R IN CALL ICHARI 

3295 03366 R 200020 A LAC R20 /CHECK DEVICE TYPE 

3286 03367 R 353726 R TAD (-'^UMAT-l 

3297 03370 R 744100 A SNA'CLL 

3288 03371 R 603375 R JHP I.M2 /DEVICE NOT MARGIN SPACII^G 

3289 03372 R 220150 R LAC* XVAR 

3290 03373 R 313715 R ADD (144 /INCRE!»4E!MT $X 

3291 03374 R 060150 R DAC* XVAR 

3292 03375 R 200220 R IN2 LAC IPOINT 

3293 03376 R 545040 R SAD SAVE 

3294 03377 9 745000 A SKPICLL /TOO HANY 

3295 03400 R 603334 R JMP XPACK2 /GET NEXT CHAR 

3296 03401 R 200221 R LAC IPLACF /♦12JAN14* POS ^vITHIM WORD 

3297 03402 R 553727 R SAD (XCI3 /*12JAH14* LAST CHAR POS FILLED? 

3298 03403 R 745000 A SKPiCLL /*12JAH14* YES 



PftCK 99 


MU^'?PS 


100 


IN 


RUT/OUTP 


UT SUBROUTI^MES 






3299 


03404 


R 


603334 


R 




JMP 


XPACK2 


/*12JAH14* 


NO 


3300 


03405 


R 


200220 


R 


DEL 


LAC 


IPOIMT 






3301 


03406 


R 


545103 


R 




SAD 


U'^SAVE 


/BUFFER EHPT^? 


3302 


03407 


R 


741000 


A 




SKP 




/*12JAH14* 


FIRST ^ORD 3F BUFFER 


3305 


03410 


R 


603414 


R 




JMP 


DEL2 


/*12JAH14^ 


NOT FIRST ^3RD 


3304 


03411 


R 


200221 


R 




LAC 


IPLACE 


/*12JAH14* CHAR POS 


3305 


03412 


R 


553730 


R 




SAD 


CXCIl 


/*12JAH14* 


FIRST ONE? 


3306 


03413 


R 


603334 


R 




J MP 


XPACK2 


/^12JAH14* 


YES, CAN* F 3'ACK UP 


3307 


03414 


R 


777777 


k 


DEL2 


LAW 


-I 


/*12JAH14'J= 


IS CHAR PTR 


3308 


03415 


R 


340221 


R 




TAD 


IPLACE 


/*12JAH14* 


POINTING TO 


3309 


03416 


R 


553731 


R 




SAO 


CXCIl-1 


/>^12JAH14=«' 


1ST CHAR DF tiOm 


3310 


03417 


R 


60342! 


R 




J.^P 


0EL3 


/*12JAH14* 


YES 


3311 


03420 


R 


603425 


R 




JNP 


DEL4 


/'^12JAH14'^ 


MO 


3312 


03421 


R 


777777 


A 


DEL3 


LAW 


-1 


/*12JAH14* 


MOVE WORD 


3313 


03422 


R 


340220 


R 




TAD 


IPOINT 


/*12JAH14* 


POINTER 


3314 


03423 


R 


040220 


R 




DAC 


IPOIMT 


/*12JAH14* 


BACK O^E LOCATIOM 


3315 


03424 


R 


213727 


R 




LAC 


CXCI3 


/'^12JAH14* 


POIMT TO 3RD CHAR IH 


3316 


03425 


R 


040221 


R 


DEL4 


DAC 


IPLACE 


/*12JAH141= 




3317 


03426 


R 


603334 


R 




Ji^P 


XPACK2 






3318 












.IFPNZ 


OTA 






3319 


03427 


R 


634064 


e 


DTJMPl 


JMP* 


DTIf^l 






3320 












.ENDC 








3321 












•EJECT 









WRD 
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3322 










/ 






3323 


03430 


R 


2} 3715 


R 


KEYCR 


LAC 


(144 


3324 


0343J 


R 


060150 


R 




DAC=^ 


XVAR 


3325 


03432 


R 


320151 


R 




ADD^ 


YVAR 


3326 


03433 


R 


060151 


R 




DAC* 


Y\fhR 


3327 










/ 






3328 


03434 


R 


754000 


A 


ALTMOO 


CLA'CLL 




3329 


03435 


R 


060154 


R 




DAC* 


PRTEMD 


3330 


03436 


R 


104725 


R 




CALL 


ICHARI 


3331 


03437 


R 


443325 


R 




ISZ 


PACKENt 


3332 


03440 


R 


623325 


R 




JHP* 


PACKEM 


3333 










/ 






3334 


03441 


R 


200020 


A 


RUB 


LAC 


R20 


3335 


03442 


R 


723727 


A 




A AC 


-DC0l*10- 


3336 


03443 


R 


740300 


A 




SMAISZA 




3337 


03444 


R 


603334 


R 




JMP 


XPACK2 


3338 


03445 


R 


760036 


A 




LAW 


36 


3339 


03446 


R 


103174 


R 




CALL 


OUT 


3340 


03447 


R 


760025 


A 




LA«Af 


25 


3341 


03450 


R 


103174 


R 




CALL 


OUT 


3342 


03451 


R 


760000 


A 




LAlA/ 


00 


3343 


03452 


R 


103174 


R 




CALL 


OUT 


3344 


03453 


R 


213715 


R 




LAC 


(144 


3345 


03454 


R 


060150 


R 




DAC* 


KVAR 


3346 


3 455 


R 


360151 


R 




TAD* 


YVAR 


3347 


03456 


R 


060151 


R 




DAC* 


YVAR 


334B 


03457 


R 


623325 


R 




JMP* 


PACKEM 



/RESET $X 

/incREmuT: $y 



/CLEAR %W COUNTDOWN FOR CLOCK 
/PACK EON INTO BUFFER 
/BUMP RETURN ADOR. FOR 
/iMOR^AL RETURN. 

/IS CURREMT /*12JAH17* 

/DEVICE A /*12JAH17* 

/TERVIIMAL? /*12JAH17* 

/NO, TREAT CODE 177 AS ILLEGAL /*12JAH17* 

/ECHO FOR him DELETE /*12JAH17* 
/" 
/U 

/CRLF 



/SET CHAR POS^ = 1 

/AND ADD ONE TO LINE COUNT 
/LINE RUBOUT RETURN, 
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MUMPS 


100 


RES 


MIRkni 


MAIN PROGRAM 


3349 












.TITLE 


REEiMTRA 


3350 










/INTERPRETER ENTR^ FOR 


3351 










/ 






3352 


03460 


R 


160145 


R 


BEGIN 


DZI^=<^ 


L^AR 


3353 


03461 


R 


140652 


R 


BEGl 


DZ?^ 


SW'APSI^i 


3354 


03462 


R 


200162 


R 




LAC 


PRMCOV 


3355 


03463 


R 


300331 


R 




ADO 


«^HOTAB 


3356 


03464 


R 


043174 


R 




DAC 


OUT 


335? 


03465 


R 


223174 


R 




LAC* 


OUT 


3358 


03466 


R 


540654 


R 




SAO 


PRTNNB 


3359 


03467 


R 


603476 


R 




J^VjP 


SEG3 


3360 


03470 


R 


741200 


k 




SNA 




3361 


03471 


R 


603474 


R 




JMP 


3EG2 


3362 


03472 


R 


101533 


R 




jm 


HANG 


3363 


03473 


R 


603461 


R 




JMP 


BSGl 


3364 










/ 






3365 


03474 


R 


200654 


R 


BEG 2 


LAC 


PRTMMB 


3366 


03475 


R 


063174 


R 




OAC'«' 


OUT 


3367 


03476 


R 


760000 


k 


BEG3 


LAi^ 


00 


336B 


03477 


R 


103174 


R 




CALL 


OUT 


3369 


03500 


R 


760076 


h 


BEGINl 


LAS^J 


76 


3370 


03501 


R 


103174 


R 




CALL 


OUT 


3371 












.IFDEF 


KB8GFU 


3372 












OZM* 


BVAR 


3 37 3 












.EHDC 




3374 


03502 


R 


213730 


R 




LAC 


CXCIl 


3375 


03503 


R 


040221 


R 




DAC 


IPLACE 


3376 


03504 


R 


200132 


R 




LAC 


BUFFI 


3377 


03505 


R 


040220 


R 




DAC 


IPOINT 


3378 


03506 


R 


103325 


R 




CALL 


PACKEM 


3379 


03507 


R 


603500 


R 




JMP 


BEGINl 


3380 


03510 


R 


200134 


R 




LAC 


BUFF 


3381 


03511 


R 


040206 


R 




DAC 


LQC 


33B2 


3512 


R 


200132 


R 




LAC 


BUFFI 


3383 


03513 


R 


040222 


R 




DAC 


OPOIMT 


3384 


03514 


R 


213732 


R 




LAC 


(XCOl 


3385 


03515 


R 


040223 


R 




DAC 


OPLACE 


3386 


03516 


R 


104660 


R 




CALL 


OCHARI 


3387 


03517 


R 


103724 


R 




CALL 


SYfy'TAX 


3398 


03520 


R 


603527 


R 




JMP 


DIRECT 


3389 


03521 


R 


603525 


R 




J!^!P 


INDIR 


3390 


03522 


R 


553733 


R 




SAD 


(73 


3391 


03523 


R 


603460 


R 




JMP 


BEGIM 


3392 


03524 


R 


000003 


A 




ERR3 





/SET STEP = 

/LOCK ON TO PRNC 
/DEVICE FOR THIS JOB 

/GET CURRE?4T OWMER 
/SANE OME 
/YES--OK GO ON 
/NO--IS II Qi/^NSD 

/tES"GO A'A'A^ FOR AWHILE 
/TRY AGAIN 

/LOCK DEVICE 

/CR-LF 

/LEFT CARET CUE 



/*12JAH14* 
/*12JAH12=«= 



CHAR POS = 
MIDDLE 



/SET UP POIMTER AND 

/FILL DIRECT COmhHD BUFFER, 

/LINE RUSOUT, REPEAT CUE. 

/SET STEP BUFFER PTR TO 

/BEGINNIMG OF STEP BUFFER. 

/POINTS TO FIRST LOC OF^ DIR CtM^MD BUFF. 

/SET UP POINTER TO 

/^UJAHU^^' CHAR POS = 

/*12JAH14* MIDDLE 

/INDEX AMD LOAD A CHAR, 

/TEST CHAR. TYPE 

/LETTER - GO PROCESS DIRECT CNMO. 



/NUMBER • GO PROt 
/PUNCT, IS IT A 
/YES, COMMENT, K 
/NO, "SYNTX" 



ESS I^IOIRECT CMND. 



;N0RE AND GET NEXT Llf^E 
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COMMAND DISPATCHER 



3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 

340 2 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 

341 3 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
343B 
3439 
3440 
3441 



TITLE C0^4^1AND DISPATCHER 











/HANDLE 

/ 

INDIR 


INDIRECT COMMAND 


03525 


R 


104340 


R 


CALL 


PLACE 


03526 


R 


603460 


R 


/ 

/HANDLE 

/ 

DIRECT 


JMP 


BEGIN 










DIRECT 


CONMAMD 


03527 


R 


760000 


A 


LAi^ 


00 


03530 


R 


103174 


R 




CALL 


OUT 


03531 


R 


104710 


R 




CALL 


SliBQPT 


03532 


R 


103535 


R 




CALL 


DISPAT 


03533 


R 


000004 


A 




ERR4 




03534 


R 


603460 


R 


/ 

/DISPATS 

/ 

DISPAT 


JMP 


BEGIM 










CH on FIRST LETTER 


03535 


R 


000000 


A 







03536 


R 


140203 


R 




DZM 


FQRTST 


03537 


R 


104660 


R 


FORK IT 


CALL 


OCHARI 


03540 


R 


103724 


R 




CALL 


SYWTAX 


03541 


R 


603550 


R 




JMP 


DISPT3 


03542 


R 


000003 


A 




ERR3 




03543 


R 


553733 


R 




SAD 


(73 


03544 


R 


603602 


R 




JMP 


DTATST 


03545 


R 


553653 


R 




SAD 


(40 


03546 


R 


603537 


R 




JMP 


EGRXIT 


03547 


R 


000003 


A 




ERR 3 




03550 


R 


313734 


R 


DISPT3 


ADO 


(JMP DTAB 


03551 


R 


047163 


R 




DAC 


eVAL 


03552 


R 


104660 


R 


DISPTi 


CALL 


OCHARI 


03553 


R 


745200 


A 




SMAiCLL 




03554 


R 


407163 


R 




XCT 


EVAL 


03555 


R 


553733 


R 




SAD 


(73 


03556 


R 


407163 


R 




XCT 


EVAL 


03557 


R 


553653 


R 




SAD 


(40 


03560 


R 


741000 


A 




SKP 




03561 


R 


603552 


R 




JMP 


DlSPTl 


03562 


R 


144645 


R 




DZW 


OCHAR 


03563 


R 


444645 


R 


DISPT2 


ISZ 


GCHAR 


03564 


R 


104660 


R 




CALL 


OCHARI 


03565 


R 


553653 


R 




SAD 


(40 


3566 


R 


603563 


R 




JMP 


0ISPT2 


03567 


R 


104710 


R 




CALL 


SfJBOPT 


03570 


R 


204645 


R 




LAC 


OCBAR 


03571 


R 


740020 


A 




RAR 




03572 


R 


407163 


p^ 




XCT 
.EJECT 


EVAL 



/STORE STEP IN PROGRAM BUFFER, 
/GET NEXT COMMA^^O. 



/OUTPUT CRLF 

/DECREMENT OPOIjMT 

/GO TO COMMAND DISPATCHER 

/DIRECT MODE QUIT EXIT- "CMMND" 

/CONTINUE ^ITH ?4EXT DIRECT CMND. 



OF COMMAND ^'ORD 



/*12JAH17=«^ 
/*12JAH17'^ 



/SET "NOT in FOR" 

/GET NEXT CHAR. 

/TEST CHAR, TYPE 

/LETTER 

/N'UMBER- "SYNTX" 

/PUNCTUATION, IS IT A ; 

/YES, STEP COMPLETED IF NOT IM FOR 

/no, IS IT A SPACE? 

/YES, GO GET NEXT CHAR 

/^JO, "SYNTX" 

/STORE JMP TO OTAB 

/FOR COMMAND DISPATCH. 

/GET MEXT CHAR, 

/EOM? 

/YES, DISPATCH TO CM^D PROC. 

/COMMENT FOUIMD 
/NO, IS IT A SPACE? 



/NO SPACE FOUND YET 

/SAVE 1 AS THE LIMK( POSSIBLE OPERAND) 

/GET NEXT CHAR 

/IS IT A SPACE? 

/YES, ANOTHER SPACE, PASS OVER IT 

/DEC»EMEMT OPOINT AND 

/GET A CHARACTER 

/SET UP LIMK FOR "POSSIBLE OPERAND FLAG" 

/DISPATCH TO COMMAND PROCESSIMG. 
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MU^^1PS 


100 


r* 


OMMANO OiS! 


patche:r 




3442 










/RETURN 


FROfvl CO? 


^A^nD p 


3443 










/ 






3444 


03573 


R 


104645 


R 


DTABLE 


CALL 


OCHAR 


3445 


03574 


R 


553653 


R 


DTABl 


SAD 


(40 


3446 


03575 


R 


603537 


R 




jm 


PORXIT 


3447 


03576 


R 


553733 


R 




SAO 


(73 


3449 


03577 


R 


603602 


R 




JMP 


OTATST 


3449 


03600 


R 


744200 


A 




SZA'CLL 




3450 


03601 


R 


000003 


k 




ERR3 




3451 


03602 


R 


200203 


R 


DTATST 


LAC 


FORTST 


3452 


03603 


R 


744200 


A 




SZA'CLL 




3453 


03604 


R 


612077 


R 




J^AP 


FORSTP 


3454 


03605 


R 


443535 


R 




ISZ 


OISPAT 


3455 


03606 


R 


623535 


R 




JMP* 


DISPAT 


3456 












.EJECT 





PROCESSING, 



/GET A CHAR. 

/*12JAH12* IS IT A SPACE? 

/YES, GO GET NEXT CHAR. 

/NO. IS IT A ? 

/YES, COMMENT, TREAT AS END OF LI^F 

/NO, IS IT EONi 

/NO, "SYNTX" 

/ARE i^E IN FOR LOOP? 
/YES, GO TO NEXT ITERATION 
/NO, BUf>^P FOR NORMAL RETURN. 
/RETURN, STEP COMPLETED. 
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3457 

3458 

3459 

3460 

3461 03611 R 634043 E JNP* CALLP /^12JAH12* CALL OR CLDSS 

3462 

3463 

3464 03614 R 611772 R Jf^P FOR /FOR OR FILE 

3465 03615 R 612266 R Jf^P GO /GO OR GOTO 

3466 03616 R 634107 E Jf^P* HALT /*12JAH12=^ HALT OR HkH 
3467 
3468 
3469 

3470 03622 R 634120 E JMP* LOCK /*12JAH12* 

3471 
3472 
3473 
3474 
3475 
3476 

3477 03624 R 000004 A ERR4 /"CMMND" 

347B 03625 R 607677 R JMP 09EH /OPEN' OR OVERLAif 

3479 
34B0 
3481 
3482 
3483 

3484 03633 R 634160 E Jf^P* UNLOCK /f=12JAH12'^ 

3485 03634 R 000004 A ERR4 /"CM^NO" 
3486 

3487 03636 R 613467 R JMP XCOM. /SPECIAL X CON^IAND FOR READING DISC BLOCKS 

3488 03637 R 000004 A ERR4 /"C^I^NO" 

3489 03640 R 000004 A ERR4 /"CM^MD" 



MUMPS 


100 




O^^MAND DISPATCHER 












/DISPATCH TABLE 
/ 

DTAB JMP 


FOR COMMA^fDS 


03607 


R 


611477 


R 


ASK 


03610 


R 


611536 


R 


JMP 


BREAK 


03611 


R 


634043 


E 


JNP* 


CALLP 


03612 


R 


611553 


R 


JMP 


DO 


03613 


R 


61167 7 


R 


JNP 


ERASE 


03614 


R 


611772 


R 


Jf^P 


FOR 


03615 


R 


612266 


R 


Jf^P 


GO 


03616 


R 


634107 


E 


Jf^P* 


HALT 


03617 


R 


612347 


R 


JHP 


IF 


03620 


R 


612366 


R 


JMP 


JOIN 


03621 


R 


612506 


R 


JMP 


KILL 


03622 


R 


634120 


E 


JMP* 
.IFPNZ 


LOCK 
MODIFY 


03623 


R 


612533 


R 


JMP 
,ENDC 
•IFNOZ 
ERR4 

.EImOC 


NiODFY 
MODIFY 


03624 


R 


000004 


A 


ERR 4 




03625 


R 


607677 


R 


JMP 


OPEN 


03626 


R 


613020 


R 


J^^P 


PRINT 


03627 


R 


613054 


R 


JMP 


QUIT 


03630 


R 


613073 


R 


JHP 


READ 


03631 


R 


613213 


R 


JMP 


SET 


03632 


R 


613250 


R 


JMP 


TYPE 


03633 


R 


634160 


E 


JfMP* 


UNLOCK 


3 6 3 4 


R 


000004 


A 


ERR4 




03635 


R 


613417 


R 


JMP 


WRITE 


03636 


R 


613467 


R 


JMP 


XCOM. 


03637 


R 


000004 


A 


ERR4 




03640 


R 


000004 


A 


ERR4 
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MUMPS 100 



SUBROUTINES FOR INTERPRETER 



3490 












.TITLE 


SUBROUTINES FOR 


INTERPRETER 


3491 










/ 










3492 










/XPRODft 


- GET Oi^NERSHIP 


OF DISK 


& CORE SLOCK S/JITCH 


3493 










/ C 


ALLIMG sequence: 






3494 










/ 


CALL 


PRODA 






3495 










/ 


AMY 


IMSTRUCTION 




3496 










/ 


PRODA RETURMS 


HERE 




3497 










/ 










3498 


03641 


R 


000000 


A 


PRODA 











3499 


03642 


R 


705522 


A 


XPPOOA 


IN TOFF 






/PROHIBIT CHA^JGE OF SU30UES 


3500 


03643 


R 


400720 


R 




XCT 


SUBQlfES 




/^HICH DISK IS R[JNN1^JG? 


3501 


03644 


R 


603650 


R 




JMP 


PRODI 




/SUBiMERGED 


3502 


03645 


R 


140652 


R 




DZM 


S',VAPSU' 




/SERIAL, PROHIBIT INTERRUPTION 


3503 


03646 


R 


705521 


A 




IN TON 








3504 


0364-7 


R 


623641 


R 




J MP* 


PRODA 






3505 


03650 


R 


040201 


R 


PRODI 


DAC 


SAVPRD 




/SAVE AC 


3506 


03651 


R 


200577 


R 




LAC 


DSKACT 




/DISK IN USE? 


3507 


03652 


R 


741200 


k 




SNA 








3508 


03653 


R 


603661 


R 




JMP 


PR0D2 




/NO, 1T»S ALL OURS 


3509 


03654 


R 


540654 


R 




SAD 


PRTNMB 




/DO WE ALREADY OWN IT? 


3510 


03655 


R 


603666 


R 




J^IP 


PR0D3 




/YES 


3511 


03656 


R 


101533 


R 


PRODIS 


JMS 


HAtv'G 




/MO, WAIT YOUR TURN 


3512 


03657 


R 


200201 


R 


PRDDRT 


LAC 


SAVPRD 




/RESTORE AC 


3513 


03560 


R 


603642 


R 




JMP 


XPRODA 




/TRY AGAIN 


3514 


03661 


R 


440600 


R 


PR0D2 


ISZ 


OSKCNT 




/INCREMENT CONSEC DISK ACCUESSES 


3515 


03662 


R 


603666 


R 




JMP 


PR0D3 




/NO OVERFLO'^ 


3516 


03663 


R 


200716 


R 




LAC 


DSKREP 




/DONE YOUR SHAREJ 


3517 


03664 


R 


040600 


R 




DAC 


DSKCNT 




/RESET NAX ACCESSES CNfR 


3518 


03665 


R 


603656 


R 




JMP 


PRODIS 




/GIVE UP TIME SLICE 


3519 


03666 


R 


200654 


R 


PR0D3 


LAC 


PRTI^MB 






3520 


03667 


R 


040577 


R 




DAC 


DSKACT 




/m HQ^ OWN DISK 


3521 


03670 


R 


040601 


R 




DAC 


PRVDKA 




/PREV Oi«?MER SWITCH 


3522 


03671 


R 


140652 


R 




DZM 


S^^APSW 




/IMHIBir SWAP TILL DISK I/O 3EGU 


3523 


03672 


R 


705521 


A 




INTON 








3524 


03673 


R 


200201 


R 




LAC 


SAVPRD 






3525 


03674 


R 


623641 


R 




JMP* 


PRODA 






3526 












•EJECT 









/*12JAH17* 
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3527 ,IFPNZ OTA 

3528 / 

3529 /SUSROUTIME TO LOCK ONTO THE DECTAPE CONTROLLER FOR THIS PARTITION 

3530 / 

3531 /CALL LOCK DT WITH lOM AND S^k9 E?^ABLED 

3532 / 

3533 03675 R 101533 R LOKOTl jns HANG /^hY AS v\IELL HANG FOR AWHILE 

3534 03576 R 540654 R SAD PRTNMB 

3535 03677 R 000003 A ERR3 /PARTITION ALREADY LOCKED TO DT ROUTINES 

3536 /"SYMTX" ERROR 

3537 03700 R 603702 R JMP XLOKDT /'^12JAH17* 

3538 /ENTRY POIMT FOR LOKDT 

3539 03701 R 000000 A LOKDT /*12JAH17* 

3540 03702 R 705522 A XLOKDT INTOFF 

3541 03703 R 234062 E LAC* OTACT /IS DT CONTROLLER IN USe?C ^lOVE , SEARCH , ETC.) 

3542 03704 R 744200 A SZAiCLL 

3543 03705 R 603675 R JMP LOKDTl /.,.YES 

3544 03706 R 200654 R LAC PRTMMB 

3545 03707 R 074062 E DAC* DTACT /OT CONTROLLER HOM O^MEO BY THIS PARTITION 

3546 03710 R 705521 A IMTON 

3547 037H R 623701 R JNP* LOKDT 
354B .EMDC 

3549 .EJECT 
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MU^^PS 


100 


SUBROUTINES 


FOR INTERPRETER 






3550 










/ 










3551 










/XOTEXT 


- OUTPUT CHARACTERS UP 


TO EOM 




3552 










/ 










3553 


03712 


R 


000000 


A 


OTExr 









/=*=12JAH17^ 


3554 


03713 


P 


513735 


R 




AND 


C377777 


/TRI^ MESSAGE ADDR 


/*12JAH17* 


3555 


03714 


R 


040222 


R 




DAC 


OPOIWT 


/GETTING CHAR. 




3556 


03715 


R 


213736 


R 




LAC 


(XC03 


/*12JAH141= Ii\JIT 




3557 


03716 


R 


040223 


R 




DAC 


OPLACE 


/*12JAH14* CHAR POS 




3558 


03717 


R 


104660 


R 




CALL 


DCHARI 


/IMDEX S, LOAD CHAR USI^IG 


OPOIMT. 


3559 


03720 


R 


741200 


A 




SNA 




/EOM? 




3550 


03721 


R 


623712 


R 




JMP'?' 


OTEXT 


/YES, FINISHED, 




3561 


03722 


R 


103174 


R 




CALL 


OUT 


/NO, OUTPUT CHAR AND 




3562 


03723 


R 


603717 


R 




J, MP 


.-4 


/CONTIMUE. 




3563 












.EJECT 









PA3K 98 



MUWS 100 



SUBROUTINKS FOR IWTERPRETPR 



3564 
3565 
3566 
3567 
356B 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
35B8 
3589 
3590 



03724 
03725 
03726 
03727 
03730 
03731 
03732 
03733 
03734 
03735 
37 36 
03737 
03740 
03741 
03742 
3 7 4 3 



000 
652 
745 
603 
313 
741 
603 
443 
313 
741 
603 
313 
740 
443 
641 
623 



000 
000 
200 
733 
722 
100 
742 
724 
737 
100 
741 
740 
100 
724 
002 
724 



/ 

/XSYNTAX - CHECK CHARACTER TYPE 

/ 

/EN 

/EX 

/ 

/ 

/ 

/ 

/ 

SYN 



TER 
ITS 

Rl 

R2 
R3 



WITH CHARACTER TO CHECKED IN THE AC 
(WITH AC RESTORED) 

- CHARACTER IS ALPHABETIC 

- CHARACTER IS NUMERIC (DOES NOT INCLUDE 

- CHARACTER IS PUNCTUATION (II^CLUOES EOM 



DECIMAL POINT OR SIGWS) 
(00) AND SPACE (40) 



TAX 



XSYNl 



xs:^' 

RES 



N2 
TORE 





LMO 

SNAJCLL 

JMP 

ADD 

SPA 

JMP 

ISZ 

ADD 

SPA 

JNP 

ADD 

SMA 

ISZ 

LACQ 

JMP* 

• EJECT 



XSYNl 
(777745 

RESTORE 

SYNTAX 

(777752 

xsyM2 

(777765 

SYMTAX 
SYNTAX 



/SAVE CHAR TEr4P0RARILY 



/*12JAH17'^ 
/*i2JAH17^ 



/*i2JAH12* EQMj COMSIDERED TO BE PUMC 
/-33 

/ LETTER 

/=t=12JAH12=«= 

/-26 

/*12JAH12* PUNCTUATION 

/"!3 

/ NUMBER 

/1=12JAH12* 

/ RESTORE AC AND 

/RETURN, 
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MU^PS 


100 




3591 










3592 










3593 










3594 










3595 










3596 










3597 










359B 


37 4 4 


R 


000000 


A 


3599 


03745 


R 


652000 


A 


3600 


03746 


R 


740031 


A 


3601 


03747 


R 


340165 


R 


3602 










3603 


03750 


R 


741100 


A 


3604 


03751 


R 


603766 


R 


3605 


03752 


R 


340170 


R 


3606 


03753 


R 


740031 


A 


3607 


03754 


R 


340166 


R 


3608 


03755 


R 


740031 


A 


3609 


03756 


R 


740030 


A 


3610 


03757 


R 


060146 


R 


3611 


03760 


R 


744010 


A 


3612 


03761 


R 


320146 


R 


3613 


03762 


R 


060146 


R 


3614 


03763 


R 


641002 


A 


3615 


03764 


R 


040167 


P 


3616 


03765 


R 


623744 


R 


3617 


03766 


R 


740001 


A 


3619 


03767 


R 


040266 


R 


3619 


03770 


R 


340166 


R 


3620 


3771 


R 


740031 


A 


3621 


03772 


R 


340170 


R 


3622 


03773 


R 


741100 


A 


3623 


03774 


R 


604026 


R 


3624 


03775 


R 


641002 


A 


3625 


03776 


R 


040165 


R 


3626 


03777 


R 


777777 


A 


3627 


04000 


R 


340166 


R 


3628 


04001 


R 


046621 


R 


3629 


04002 


R 


340266 


R 


3630 


04003 


R 


740030 


A 


3631 


04004 


R 


040266 


R 


3632 


04005 


R 


740030 


A 


3633 


04006 


R 


040166 


R 


3634 


04007 


R 


353741 


R 


3635 


04010 


R 


540165 


R 


3636 


04011 


R 


604023 


R 


3637 


04012 


R 


226621 


R 


3639 


04013 


R 


060266 


R 


3639 


04014 


R 


777777 


A 


3640 


04015 


R 


340266 


R 


3641 


04016 


R 


040266 


R 


3642 


04017 


R 


777777 


A 



SUSROOTI^es FOR INTERPRETER 

/XSTOR1,XSTOR2 - CHECK STORAGE AVAILABLE wITHIM USER'S PARTITIOsM 

/ 

/ 

/ 

/XSTOHl " PROGRA^vi LENGTH CHANGS 



/*12JAH17* 

/ <AC> nm VALUE FOR EMO /*12JAH17* 



/ 


ENTER i-^J 


ITH H?M 


/ 






STORl 




L!^0 

CMAilAC 






TAD 


STACK 




SPA 






JHP 


WSTACK 


XRETl 


TAD 

CMAIIAC 


SYMBEG 




TAD 


SPOILT 




CMAilAC 






I AC 






OAC* 


SVAR 




RCL 






ADD* 


SVAR 




DAC* 


SVAR 




LACQ 






DAC 


END 




JMP* 


STORl 


MSTACK 


znA 






DAC 


GASS 




TAD 


SPOINT 




CMAIIAC 






TAD 


SYMBEG 




SPA 






JMP 


XSTOli 




LACQ 






DAC 


STACK 




LAl^ 


-1 




TAD 


SPOINT 




DAC 


CONT 




TAD 


GASS 




lAC 






DAC 


GASS 




lAC 






DAC 


SPOIMT 




TAD 


(-1 




SAD 


STACK 




JMP 


NGSTAC 


MSTK.R 


LAC* 


CONT 




DAC* 


GASS 




LAW 


-1 




TAD 


GASS 




DAC 


GASS 




LAi^ 


-1 



/NUMBER OF i^ORDS BETWESM "END" AMD START OF STACK 
/v^ILL NE'^ "EMD" CAUSE STACK TO BE MOVED? 
/YES, CHAMGE LOCATIOM OF STACK 



/ADD # OF WORDS BET, EMO OF STACK & "SYNBEG" 

/TOTAL FREE i-^OROS 

/ CONVERT FROM wORDS TO CHARACTERS 

/ 3 * (1^0. OF ^DS) 
/ SET UP.NEi^ $S 

/UPDATE VALUE FOR "END" 
/ EXIT 

/SAVE LENGTH OF STACK OFFSET 



/ENOUGH ROOM? 

/NOT EMOUGH ROOM FOR I^JCREASE /*12JAH17* 

/ME^^ "END" BECOMES NEW "STACK" 

/FETCH OLD Er^JD OF STACK 

/SUBTRACT OFFSET 

/NEW END OF STACK 



/ZERO LEMGTH STACK? 

/YES 

/TRANSFER STACK 
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3643 


04020 


R 


346621 


R 




TAO 


CGNT 


3644 


04021 


R 


046621 


R 




DAC 


COrJT 


3645 


04022 


R 


540167 


R 




SAD 


E'^D 


3646 


04023 


R 


751000 


k 


NOSTAC 


SKP!CLA 




3647 


04024 


R 


604012 


R 




jr^P 


MSTKR 


3648 


04025 


R 


603752 


R 




JMP 


XRETl 


3649 


04026 


R 


200134 


R 


XSTOil 


LAC 


BUFF 


3650 


04027 


R 


740030 


A 




lAC 




3651 


04030 


R 


040167 


R 




OAC 


EHO 


3652 


04031 


R 


160134 


R 




DZM* 


8UPF 


3653 


04032 


R 


160167 


R 




DZM4' 


mo 


3654 


04033 


r^ 

n 


000001 


A 




ERRl 




3655 










/ 






3656 










/ 






3657 










/X5T0R2 


- SYMBOL TABLE 


3658 










/ 


EN?TER W 


ITH MEW 


3659 










/ 






3660 


04034 


R 


000000 


A 


STDR2 







3661 


04035 


R 


652000 


A 




LNO 




3662 


04036 


R 


740001 


A 




CM A 




3663 


04037 


R 


340166 


R 




TAD 


SPOIMT 


3664 


04040 


R 


740331 


A 




SNAiSZA 


iCMAilA 


3665 


04041 


9 


604055 


R 




J^^P 


i^STACK 


3666 


04042 


R 


340165 


R 


XRET2 


TAD 


STACK 


3667 


04043 


R 


740031 


A 




CMAilAC 




3668 


04044 


R 


340167 


R 




TAD 


EUD 


3669 


04045 


R 


740031 


A 




CMAIIAC 




3670 


04046 


R 


060146 


R 




DAC=«^ 


SVAR 


3671 


04047 


R 


744010 


A 




RCL 




3672 


04050 


R 


320146 


R 




ADD* 


SVAR 


3673 


04051 


R 


060146 


R 




DAC* 


SVAR 


3674 


04052 


R 


641002 


A 




LACO 




3675 


04053 


R 


040170 


R 




DAC 


SYHBEG 


3676 


04054 


R 


624034 


R 




JiMP* 


ST0R2 


3677 


04055 


R 


040266 


R 


N STACK 


DAC 


GASS 


3678 


04056 


R 


340166 


R 




TAD 


SPOIMT 


3679 


04057 


R 


040166 


R 




DAC 


SPOINT 


3680 


04060 


R 


200165 


R 




LAC 


STACK 


36BI 


04061 


R 


046621 


R 




DAC 


CONT 


36fi2 


04062 


R 


340266 


R 




TAD 


GASS 


3683 


04063 


R 


040165 


R 




OAC 


STACK 


3684 


04064 


R 


040266 


R 




OAC 


GASS 


3685 


04065 


R 


740031 


A 




Cf'4AiIAC 




3686 


04066 


R 


340167 


R 




TAD 


EMO 


3687 


04067 


R 


740300 


'A 




S'^AiSZA 




368 8 


04070 


R 


000001 


A 




ERRl 




3689 


04071 


R 


226621 


R 


MSTKR 


LAC* 


CONT 


3690 


04072 


R 


060266 


R 




DAC* 


GASS 


3691 


04073 


R 


446621 


R 




ISZ 


CONT 


369? 


04074 


R 


440266 


R 




ISZ 


GASS 


3693 


04075 


R 


777777 


A 




LAW 


-1 


3694 


04076 


R 


346621 


R 




TAD 


CONT 



/END OF TRANSFER? 

/YES 

/NO 

/CLEAR /*12JAH17* 

/OUT /*12JAH17* 

/PROG /*12JAH17* 

/BUFFER /*12JAH17* 

/TO E^PTY /*12JAH17* 

/"STORE" ERROR /*12JA917* 



LENGTH CHAI^GE 

VALUE FOR "SYiMBEG" IN THE AC 

/*12JAH17* 
/ <AC> NE&^ VALUE FOR SYMBSG /*12JAH17* 



/CHAMGE OF STACK LOCATIOM MECCESSARY? 
/YES 



/ADD FREE '/^ORDS FROM EMO TO STACK 

/ CONVERT FROM ^ORDS TO CHARACTERS 

/ 3 * (NO. OF i^OS) 
/ SET UP NEW $S 

/UPDATE VALUE FOR "SYMBEG" 

/ EXIT 

/NEG. LENGTH OF OFFSET 

/HEy^ END OF STACK 



/IMEW START OF STACK 



/PARTITION BIG ENOUGH? 

/HO, "STORE": MOT ENOUGH ROO^ FOR INCREASE 

/TRANSFER STACK 
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3695 


04077 


R 


540170 


R 


3696 


04100 


R 


751000 


A 


3697 


04101 


R 


6040 71 


R 


3698 


04102 


R 


604042 


R 


3699 











SAD 

SKP'CLA 

jr^P 

JMP 

.EJECT 



SlfMBE( 

NSTKR 
XRET2 



/EMD 
/ifES 
/WO 



OP TRA^JSFSR? 
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3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
37iy 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
372B 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 

3740 
3741 
3742 
3743 
3744 
37 45 
3 7 46 
3747 
3748 
3749 
3750 



04103 
04104 
04105 
04106 
04107 
04110 
04111 
04112 
04113 
04114 
04t 15 
04116 
04117 
04120 
04121 
04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 
04134 
041 35 
04136 
04137 
04140 
04141 
04142 
04143 
04144 
04145 
04146 
04147 
04150 
04151 



000000 
043724 
777773 
040214 
140217 
203724 
741000 
104660 
103724 
604164 
604121 
553742 
604151 
604206 
513743 
043724 
200214 
553705 
604156 
343724 
544105 
604112 
440214 
741000 
604203 
200217 
653122 
000012 
744200 
604167 
641002 
343724 
741400 
604173 
741100 
604201 
040217 
604112 
200214 



/XDECI 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

DECIN 

XDECM5 



N - CONVERT NUMERIC STRIM'G TO BINARY 

ENTER ^^"ITH FIRST CHAR OF STRING IN AC A^MD OPOIiMT TO BE I^^OEXED TO NEXT CHAR, 

ANY ACCEPTABLE LEADIMG SIQHS MUST BE HATiOLED 3Y CALLING ROUTINE BEFORE CALL DECIN 

THERE ARE Ti^O EXITS FRO^ DECIN: RETURN TO CALL DECIN + 1 IF ALPHAS OTHER THAN ONE 

DECIMAL POINT ARE ENCOUNTERED , IF RESULT IS > 1310.71. IF RESULT IS < .01? SYNTAX 

IS SET TO THE APPROPRIATE CAL. (THIS IS SO THAT $V CAN EASILY RETURN ZERO FOR 

SUCH ERRORS INSTEAD OF KLUOGING UP THE ERROR PROCESSOR). 

RETURN TO CALL DECIN+2 ^HEN PUNCTUATION OTHER THAN DECIAHL POINT ENCOUNTERED 

I^^PLYING END OF INPUT STRING ENCOUNTERED, CALLING ROUTINE NUST 

CHECK FOR ACCEPTABLE PUNCTUATION AT THIS POINT, 



XDECOO 



DEC NUN 



DECPX 




DAC 

DAC 

DZN 

LAC 

SKP 

CALL 

CALL 

JMP 

J^tP 

SAO 

Ji^P 

JMP 

AND 

DAC 

LAC 

SAD 

JMP 

TAD 

SAO 

JMP 

ISZ 

SKP 

JMP 

LAC 

'**UL; 

SZAiCLL 

JHP 

LACO 

TAD 

SZL 

JMP 

SPA 

JNP 

DAC 

JMP 

LAC 



SYNTAX 

-5 

M 

AC TEMP 

SYNTAX 

OCHARI 

SYNTAX 

0ECER3 

DECNUM 

(56 

DECPT 

XDOUT 

(17 

SYNTAX 

(2 

DECPTO 
SYNTAX 
XDECM5 
XOECOO 

DECER6 
AC TEMP 
12 



DECER4 

SYNTAX 

DECER5 

DECR55 
ACTEMP 
XDECOO 



/*12JAH17* 
/SAVE FIRST CHAR /*12JAH17* 

/SETUP COUNTER FOR LEGAL # OF DIGITS 

/BEFORE THE DECI^NIAL POINT 
/ZERO THE "AC" 



/GET NEXT CHAR. 

/WHAT TYPE IS IT? 

/A -- "HARD" SYNTX ERROR 

/N -- PROCESS THE NUVfBER 

/P -- DECIMAL POINT? 

/YES, PROCESS IT. 

/NO, GO FINISH UP NUMBER AND GO Ai^AY. 

/STRIP OFF THE ASCII BITS. V 

/SAVE FOR NOi^ 

/USED UP ALL OUR DECIMAL PLACES? 
/YES, ALLOW ONLY TRAILING ZERO, 
/LEADING ZERO (I.E. CHAR=0 & M=-5)? 

/YES, IGNORE IT, 

/WILL THIS EXCEED # OF LEGAL DIGITS IN INT. PART? 



/YES, "HARD" HAXIN ERROR, 
/NO CONTINUE FORMING NUMBER. 



/OVERFLO? 
/YES - HAXIM 



/OVERFLO? 

/YES - MAXIM 

/OR f^AYBE A LITTLE OVERFLO? 

/YUP - JUST A LITTLE 



/TOO MANY DECIMAL POINTS? 
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iRPRETE 


3751 


04152 


R 


740100 


A 






S^k 




3752 


04153 


R 


604164 


R 






JMP 


DECER3 


3753 


04154 


R 


140214 


R 






DZM. 


n 


3754 


04155 


R 


604112 


R 






jm 


XDECOO 


3755 


04156 


R 


203724 


R 


DEC 


pro 


LAC 


SYNTAX 


3756 


04157 


R 


751200 


A 






SNAJCLA 




3757 


04160 


R 


604112 


R 






JNP 


XDECOO 


3758 


04151 


R 


723007 


A 






AAC 


7 


3759 


04162 


R 


043724 


R 






DAC 


SYMTAX 


3760 


04163 


R 


604207 


R 






JIJ^P 


XDOUTE 


3761 


04164 


R 


213744 


R 


DEC 


ER3 


LAC 


(3 


3762 


04165 


R 


043724 


R 






DAC 


SYNTAX 


3763 


04166 


R 


604207 


R 






JMP 


XDOUTE 


3764 


04167 


R 


200217 


R 


DEC 


ER4 


LAC 


AC TEMP 


3765 


04170 
04171 


R 

R 


653323 
000144 


A 
A 






lOIV? 


144 


3766 


04172 


R 


604176 


R 






JMP 


0ECR53 


3767 


04173 


R 


200217 


R 


DEC 


ER5 


LAC 


ACTE>4P 


3769 


04174 
04175 


R 
R 


653323 
000012 


A 

A 






IDIV? 


12 


3769 


04176 


R 


641002 


A 


DEC 


R53 


LACQ 




3770 


04177 


R 


040217 


R 






DAC 


AC TEMP 


3771 


04200 


R 


751000 


A 






CLAiSKP 




3772 


04201 


R 


750030 


A 


DEC 


R55 


CLAIIAC 




3773 


04202 


R 


040214 


R 






DAC 


H 


3774 


04203 


R 


213745 


R 


DEC 


ER6 


LAC 


(6 


3775 


04204 


R 


043724 


R 






DAC 


SYNTAX 


3776 


04205 


R 


604207 


R 






Ji^P 


XDOUTE 


3777 


04206 


R 


143724 


R 


XDOUT 


OZ^ 


SYNTAX 


3778 


04207 


R 


200217 


R 


XDOIJTE 


LAC 


ACTEMP 


3779 


04210 


R 


652000 


A 






LMQ 




3780 


04211 


R 


200214 


R 






LAC 


M 


3781 


04212 


R 


553705 


R 






SAD 


C2 


3782 


04213 


R 


604227 


R 






JNiP 


XDQUT2 


3783 


04214 


R 


740300 


A 






SZAISMA 




3784 


04215 


R 


604222 


R 






JW!P 


XDOUTl 


3785 


04216 


R 


641122 


A 






MUL-LMQ+EAE 


3786 


04217 


H 


000012 


A 






12 




3787 


04220 


R 


740200 


A 






SZA 




3798 


04221 


R 


604167 


R 






JMP 


0ECE«?4 


3789 


04222 


R 


641122 


A 


XDOUTl 


MUL-LNQ+EAE 


3790 


04223 


R 


000012 


A 






12 




3791 


04224 


R 


740200 


A 






SZA 




3792 


04225 


R 


604173 


R 






JMP 


0ECER5 


3793 


04226 


R 


641002 


A 






LACQ 




3794 


04227 


R 


751100 


A 


XDQUr2 


SPAICLA 




3795 


04230 


R 


604173 


R 






JMP 


0ECER5 


3796 


04231 


R 


543724 


R 






SAD 


SYNTAX 


3797 


04232 


R 


444103 


R 






ISZ 


DECIN 


3798 


04233 


R 


641002 


A 






LACQ 




3799 


04234 


R 


624103 


R 






JNP* 


DECIM 


3800 














.EJECT 





'- SETUP RETURM, 



/YES, "HARD" SYMTX ERROR, 
/NO. SET DECIMAL PLACE, 



/TRAILING ZERO? 

/YES, GO ON* 

/NO, "HARD" ni^ltA ERROR 

/TO ERROR EXIT 

/"SYMTX" ERROR E^ICOUMrSRED 

/TO ERROR EXIT 

/GET UMSCALED RESULT 

/TRUNCATE 2 DIGITS 



/GET RESULT BEFORE SCALING 
/TRUNCATE 1 BIT 



/STORE RESULT FOR SCALING 
/M=0 FOR MAXINU'^I SCALIMG 
/M = l FOR 1 PLACE SCALINiG 

/"MAXIM" ERROR 

/TO ERROR EXIT 

/NOTE THAT ALL IS GOOD - SO FAR 



/^=2 (I.E. FILLED IN BOTH DEC. PLACES)? 

/YES, NO MULTIPLY NEEDED. 

/M=l (I.E. FILLED IN ONLY 1 DEC. PLACE)? 

/YES, MULTIPLY 8Y 10 (MQ LOADED) 

/NO DEC. PLACES FILLED IN, MULTIPLY BY 100 

/OVERFLO? 
/YES - MAXIN 



/OVERFLO? 

/YES - ^Axm 

/GET ANSWER 

/WITHIN MUiviPS RAlNiGE? 

/NO - NIAXI^ 

/ALL OK? 

/YES, BUMP RETURN 

/GET ANSWER 
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3801 /XDEC2 - OUTPUT A DECIMAL CHARACTER 

3802 / 

3803 / ENTER WITH DIGIT'S VALUE IM THE NQ 

3804 / "RE^'OVE (TEMp STORAGE)" = 1 IF ZERO VALUES 

3805 / ARE TO BE OUTPUT. 

3806 / 

3807 / (IF CALLED FROM DECOUT, MQ CGNTAIN'S RMMQR FRD^ lOIV) 

3808 / 

3809 / 

3810 04235 R 000000 A DEC2 Z + UJAHl?* 

3811 04236 R 040217 R DAC ACTEMP /SAVE THE AC /*12JAH17* 

3812 04237 R 210005 R LAC REMOVE /GET SWITCH (RC-IOVE USED AS TEMP STORAGE) 

3813 04240 R 740010 A RAL /ZERO VALUES INTO LI^K. 

3814 04241 R 641002 A LACQ / DIGIT TO BE TYPED 

3815 04242 R 740201 A SZAiCNA 

3816 04243 R 604246 R J^P X0EC2A /*12JAH12* 

3817 04244 R 744400 A SNL'CLL / ZERO VALUE. TYPE IT? 

3818 04245 R 604253 R JHP XDEC2B /*12JAH12* NO , EXIT 

3819 04246 R 050005 R XDEC2A OAC REMOVE /=»=12JAH1 2=«= YES, AND SET Si^ITCH 

3820 04247 R 641002 A LACG 

3821 04250 R 313746 R ADO (60 /CONVERT TO 6-BIT 

3822 04251 R 744000 A CLL 

3823 04252 R 103174 R CALL OUT /OUTPUT THE CHARACTER. 

3824 04253 R 200217 R XDEC2B LAC ACTEMP /*12JAH12^ 

3825 04254 R 624235 R JMP^ 0EC2 / EXIT WITH THE AC RESTORED 

3826 .EJECT 
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3827 










/XOECOUT - CONVERT BINARY 


3828 










/ 






3829 










/ 


ENTER WITH BIMARY 


3830 










/ 






3831 


04255 


R 


000000 


A 


DECOUT 







3832 


04256 


R 


664000 


A 




GSM 




3833 


04257 


R 


040217 


R 




DAC 


ACTEMP 


3834 


04260 


R 


760055 


A 




LAW 


55 


3835 


04261 


R 


745400 


A 




SZLiCLL 




3836 


04262 


R 


103174 


R 




CALL 


OUT 


3837 


04263 


R 


200217 


R 




LAC 


ACTEMP 


3 8 39 


04264 


R 


150005 


R 




DZM 


REMOVE 


3839 












.DEC 




3B40 


04265 


R 


653323 


A 




IDIV; 


100000 




04266 


R 


303240 


A 








3841 


04267 


R 


104235 


R 




CALL 


oec2 


3 842 


04270 


R 


653323 


A 




IDIV; 


10000 




04271 


R 


023420 


A 








3843 


04272 


R 


104235 


R 




CALL 


0EC2 


3844 


04273 


R 


653323 


A 




IDIV; 


1000 




04274 


R 


001750 


A 








3845 


04275 


R 


104235 


R 




CALL 


0EC2 


3846 


04276 


R 


777777 


A 




LAW 


•1 


3847 


04277 


R 


050005 


R 




DAC 


REMOVE 


3848 


04300 


R 


200217 


R 




LAC 


ACTEMP 


3849 


04301 


R 


653323 


A 




IDIV; 


100 




04302 


R 


000144 


A 








3850 












• OCT 




3851 


04303 


R 


104235 


R 




CALL 


0EC2 


3852 


04304 


R 


200217 


R 




LAC 


ACTEMP 


3853 


04305 


R 


741200 


A 




SNA 




3B54 


04306 


R 


624255 


R 




JMP* 


DECOUT 


3855 


04307 


R 


760056 


A 




LAwi 


56 


3856 


04310 


R 


103174 


R 




CALL 


OUT 


3857 


04311 


R 


200217 


R 




LAC 


ACTEMP 


385R 












.DEC 




3859 


04312 


R 


653323 


A 




IDIV; 


10 




04313 


R 


000012 


A 








3860 












.OCT 




3061 


04314 


R 


104235 


R 




CALL 


0EC2 


3862 


04315 


R 


653000 


A 




Li^QICLAC 


3863 


04316 


R 


104235 


R 




CALL 


DEC2 


3864 


04317 


R 


624255 


R 




JMP^' 


DECOUT 


3865 












.EJECT 





TO NUf^ERIC SXRIMG 
NUMBER IN THE AC 



/=*=12JAH17* 
/=^12JAH17* 



/SIGN IMTO LINK 

/SAVE ABS VALUE. 

/- 

/IS MUM NEG? 

/YES, TYPE NIFnIUS SIGH 



/ TYPE-ZEROS-S^'ITCH: IF ^-lEGATIVE TYPE ZERO 
/ ELSE IGMDRE ZEROS 



/THOUSAPJOS CHAR POSITIO?^, 

/HUNDREDS CHAR POSITIOM. 

/TENS CHAR POSITION. 

/ SET SW^ITCH TO TYPE ZEROS 



/UNITS CHAR POSITION. 

/IS IMUMBER AN I-MTEGER? 

/YES f EX IT, 

/NO. 

/ TYPE DECIMAL POINT 



/TENTH'S CHAR P0SITI3M. 

/HUNDREDTH'S CHAR POSITION. 
/EXIT, 
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3866 / 

3867 /XOCTOUT - CONVERT BINARY TO OCTAL STRING 
386B / 

3869 / ENTER WITH BINARY NUMBER IN AC 

3870 / 

3871 04320 R 000000 A OCTOUT /=^12JAH17* 

3872 04321 R 040217 R DAC ACTEMP /SAVE NUMBER /*12JAH17* 

3873 04322 R 777772 A LAw -6 /SIX OCTAL DIGIITS = 1 40RD 

3874 04323 R 044255 R DAC DECOlJT 

3875 04324 R 200217 R LAC ACTEMP 

3876 04325 R 652000 A 0CT2 LMQ 

3877 04326 R 750000 A CLA 

3878 04327 R 640603 A LLS 3 /PICK UP f^EXT OCTAL DIGIT 

3879 04330 R 723060 A AAC 60 

3880 04331 R 103174 R CALL OUT 

3B81 04332 R 200217 R LAC ACTEMP /RETRIEVE i^JHAT'S LEFT OF OCTAL DIGITS 

3882 04333 R 640603 A LLS 3 /GET RID OF DIGIT JUST PRINTED 

3883 04334 R 040217 R DAC ACTEMP 

3884 04335 R 444255 R ISZ DECOUT /ALL DIGITS PRI*siTED? 

3885 04336 R 604325 R JHP 0CT2 /HO 

3886 04337 R 624320 R JMP* OCTOtIT /YES, EXIT 

3887 / 

3888 .EJECT 
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3889 /XPLACE - PLACE A STEP INTO PROGRAM STEP BUFFER 

3890 / 

3B91 / (STEPS ARE HELD in NUMERICAL ORDER WITH THE STEP NUNBER IN 

3892 / 8IMARY - 1 *WORD - FOLLOi-VED BY THE REHAIMOER 3F THE STEP IN' 

3893 / STRING FORMAT) 

3894 / 

3895 / 

3896 04340 R 000000 A PLACE /*12JAH17* 

3897 04341 H 104645 R CALL OCHAR /GET FIRST CHAR /^12JAH17* 

3898 04342 R 104103 R CALL DECIN /COWVERT TO MUM^^ERIC 

3899 04343 R 603724 R JMP SYMTAX /ALL ERRORS FOO^MO 8Y OSCIN ARE ERRORS HERE, 

3900 04344 R 040207 R DAC '^AL 

3901 04345 P 653323 A IDIV? 144 
04346 R 000144 A 

3902 04347 R 741200 A SNA 

3903 04350 R 000014 A ERR14 / "FRACT"; STEP MONBERS MAY MOT BE INTEGERS 

3904 04351 R 104645 R CALL OCHAR 

3905 04352 R 553653 R SAD (40 

3906 04353 R 745000 A SKPiCLL 

3907 04354 R 000003 A ERR3 / "SYNTX": A SPACE MUST FOLLOW THE STEP NUMBER 

3908 04355 R 104357 R CALL PLACi /COMPLETE PLACEMEi^T 

3909 04356 R 624340 R j!'^P=t= PLACE 

3910 / 

3911 / 

3912 /XPLACl « COMPLETE PLACING A STEP INTO PROGRAM BUFFER 

3913 / 

3914 / USED BY MODIFY COMMAND AS ^ELL AS XPLACE 

3915 / 

3916 04357 R 000000 A PLACI /*12JAH17* 

3917 04360 R 200223 R LAC OPLACE /POS PTR (POINTIMG TO SPACE) /*12JAH17* 

3918 04361 R 553732 R SAO (XCOl /*12JAH14* TO 2iMD CHAR? 

3919 04362 R 604374 R JMP XPLAC3 /*12JAH14* YES 

3920 04363 R 553747 R SAO (XC02 /*12JAH14* TO 2MD CHAR? 

3921 04364 P 604371 R JMP XPLAC2 /^12JAH14=*= YES 

3922 04365 R 200221 R LAC IPLACE /*12JAH14=«' NO, 1ST CHAR (POIs^TIMG TO EOM) 

3923 04366 R 553727 R SAD (XCI3 /*12JAH14t LAST PTR TO 1ST CHAR 

3924 04367 R 604374 R JMP XPLAC3 /*12JAH14* YES 

3925 04370 R 604373 R JMP XPLAC4 /*12JAH14* NO 

3926 04371 R 200221 R XPLAC2 LAC IPLACE /*12JAH14* LAST PTR 

3927 04372 R 553730 R SAD (XCIl /♦12JAH14* TO 2ND CHAR? 

3928 04373 R 751030 A XPLAC4 CLAIIACISKP /*12JAH14* YES 

3929 04374 R 750000 A XPLAC3 CLA /*12JAH14* 

3930 04375 R 340222 R TAD OPOIMT /'^12JAH14^ UPDATE s^ORO 

3931 04376 R 740031 A CMAIIAC /*12JAH14* PTR 

3932 04377 R 340220 R TAD IPOINT /=^12JAH14* 

3933 04400 R 513702 R AND (77 

3934 04401 R 553702 R SAO (77 

3935 04402 R 750000 A CLA 

3936 04403 R 044645 R DAC OCHAR / LEN'GTH OF HE^ STEP 

3937 04404 R 744001 A CMA'CLL 

3938 04405 R 044725 R DAC ICHARI 

3939 04406 R 220145 R LAC=t: ^VAR / GET STEP NUMBER OF STEP BEING EXECUTED 
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3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
39R0 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 



04407 R 540207 R 

04410 R 000015 A. 

04411 R 200134 R 

04412 R 040014 A 

04413 R 140652 R 

04414 R 220014 A 

04415 R 653606 A 

04416 R 300014 A 

04417 R 040014 A 

04420 R 540167 R 

04421 R 604516 R 

04422 R 220014 A 

04423 R 740001 A 

04424 R 300207 R 

04425 R 740101 A 

04426 R 604414 R 

04427 R 744200 A 

04430 R 604535 R 

04431 R 200014 A 

04432 R 040015 A 

04433 R 220015 A 

04434 R 653606 A 

04435 R 300015 A 

04436 R 540167 R 

04437 R 604527 R 

04440 R 040015 A 

04441 R 740031 A 

04442 R 300014 A 

04443 R 304645 R 

04444 R 740100 A 

04445 R 604542 R 

04446 R 204645 R 

04447 R 444725 R 

04450 R 604453 R 

04451 R 604473 R 

04452 R 104660 R 

04453 R 640706 A 

04454 R 044645 R 

04455 R 104660 R 

04456 R 244645 R 
0^457 R 640706 A 

04460 R 044645 R 

04461 R 104660 R 

04462 R 244645 R 

04463 R 060014 A 

04464 R 444725 R 

04465 R 604452 R 

04466 R 104660 R 

04467 R 741200 A 



SAO 


VAL 


ERR 15 




LAC 


BUFF 


DAC 


R14 


OZM 


SWAPSicI 


XPLAC5 LAC* 


R14 


LMQiCLAClLLS+6 


ADD 


Ri4 


DAC 


R14 


SAD 


END 


JMP 


APPEMD 


LAC? 


R14 


cm 




ADO 


VAL 


SMAICMA 




jm 


XPLAC5 


SZAiCLL 




J!^P 


INSERT 


LAC 


R14 


DAC 


R15 


LAC* 


R15 


LM0!CLAClLLS+6 


ADD 


R15 


SAD 


END 


JMP 


PLACES 


DAC 


R15 


CNAIIAC 




ADD 


R14 


ADD 


OCHAR 


SlAh 




JMP 


PLACE6 


PLACE? LAC 


OCHAR 


ISZ 


ICHARI 


JMP 


PLAC3A 


JMP 


PLACES 


PLACES CALL 


OCHARI 


PLAC3A ALS 


6 


DAC 


OCHAR 


CALL 


OCHARI 


XOR 


OCHAR 


ALS 


6 


DAC 


OCHAR 


CALL 


OCHARI 


XOR 


OCHAR 


DAC* 


R14 


ISZ 


ICHARI 


JHP 


PLACE3 


CALL 


OCHARI 


SNA 





/ CO IF IM DIRECT MODE) 

/ "STEPS": THE STEP 3EIMG EXCUTED CAN'T 

/ BE REPLACED 

/ no, START AT THE BSGI^MNING OP THE STEP BUFFER 

/ YES 

/INHIBIT SWAP DURING PROG UPDATE 

/OFFSET OF THIS STEP 

/ POIiMTIMG TO MEXT STEP MUHBER iMOiftI 

/ EhJD OF STEP BUFFER? 

/ YES, APPEND MEsv' STEP TO E?^D OP BUFFER 

/ NO, GET ^EXT STEP'S MU^BER 



/ IS OLD STEP'S NUMBER (* 14) = OR > 

/NEW ONE (VAD? 

/no KEEP LOOKING 

/ YES 

/ OLO>N£iA/: GO INSERT HE^ STEP 

/ OLD~NEW: REPLACE OLD STEP ^ITH WEW 



/ <AC> BECOMES OFFSET OF OLD STEP 



/REPLACE LAST STEP IN STEP BUFFER 
/<15>=<14>+1+0FFSET 

/ FORMS NEGATIVE LENGTH OF OLD STEP 

/ FORMS DIFFERENCE IN LENGTH BET^EEM 

/OLD AND NE'^ 

/ IS OLD STEP LONGER THAN HEvi? 

/ WO? GO MAKE ROOH FOR -MEi^ STEP 

/ YES? PLACE MEW STEP i^^TO BUFFER 

/ <ICHARI>=MEGATIVE LENGTH OP NEW STEP 

/*12JAH12* 

/ONE CHARACTER STEP 

/ PLACE ME^ STEP INTO STEP BUFFER 

/*12JAH12* 



/*i2JAH14* LAST WORD? 

/no 

/YES 

/ ANY MORE CHARACTERS? 
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3992 


04470 


R 


604476 


R 


3993 


04471 


R 


640706 


A 


3994 


04472 


R 


044645 


R 


3995 


04473 


R 


104660 


R 


3996 


04474 


R 


244645 


R 


3997 


04475 


R 


640706 


A 


3998 


04476 


R 


060014 


A 


3999 


04477 


R 


200015 


A 


4000 


04500 


R 


540014 


A 


4001 


04501 


R 


604512 


R 


4002 


04502 


R 


540167 


R 


4003 


04503 


R 


604510 


R 


4004 


04504 


R 


220015 


A 


4005 


04505 


R 


060014 


A 


4005 


04506 


R 


200015 


A 


4007 


04507 


R 


604502 


R 


4008 


04510 


R 


200014 


A 


4009 


04511 


R 


103744 


R 


4010 


04512 


R 


440652 


R 


4011 


04513 


H 


624357 


R 


4012 


04514 


R 


1015 3 3 


R 


4013 


04515 


R 


624357 


R 


4014 


04516 


R 


200014 


A 


4015 


04517 


R 


304645 


R 


4016 


04520 


R 


723002 


A 


4017 


04521 


R 


040015 


A 


4018 


04522 


R 


103744 


R 


4019 


04523 


H 


200207 


R 


4020 


04524 


R 


060014 


A 


4021 


04525 


R 


604446 


R 


4022 


04526 


R 


060014 


A 


4023 


04527 


R 


200014 


A 


4024 


04530 


R 


304645 


R 


4025 


04531 


R 


740030 


A 


4026 


04532 


R 


040015 


A 


4027 


04533 


R 


103744 


R 


4028 


04534 


R 


604446 


R 


4029 


04535 


R 


200014 


A 


4030 


04536 


R 


040015 


A 


4031 


04537 


R 


204645 


R 


4032 


04540 


R 


313705 


R 


4033 


04541 


R 


741000 


A 


4034 


04542 


R 


440015 


A 


4035 


04543 


R 


044660 


R 


4036 


04544 


R 


200167 


R 


40 3 7 


04545 


R 


04510 3 


R 


4038 


04546 


P 


304660 


R 


4039 


04547 


R 


103744 


R 


4040 


04550 


R 


045040 


R 


4041 


04551 


R 


225103 


R 


4042 


04552 


R 


065040 


R 


4043 


04553 


R 


777776 


A 



SUBROUTINES FOR INTERPRETER 



PLACES 



PLACE4 



PLAC4A 



PLAC4B 



APPEND 



PLACES 



INSERT 



PLACE6 



MOVEDN 



JMP 


PLACE4 


ALS 


6 


DAC 


OCHAR 


CALL 


OCHARI 


XOR 


OCHAR 


ALS 


6 


DAC* 


R14 


LAC 


R15 


SAD 


R14 


JMP 


PLAC4B 


SAD 


END 


JMP 


PLAC4A 


LAC* 


R15 


DAC* 


R14 


LAC 


R15 


Jf4P 


• -5 


LAC 


R14 


CALL 


STORl 


ISZ 


SWAPSW 


JMP* 


PLACl 


JMS 


HANG 


JMP* 


PLACl 


LAC 


R14 


ADD 


OCHAR 


AAC 


2 


DAC 


R15 


CALL 


STORl 


LAC 


Vhh 


DAC* 


R14 


JMP 


PLACE7 


DAC* 


R14 


LAC 


R14 


ADO 


OCHAR 


I AC 




DAC 


R15 


CALL 


STORl 


JMP 


PLACE7 


LAC 


R14 


DAC 


R15 


LAC 


OCHAR 


ADD 


(2 


SKP 




ISZ 


R15 


DAC 


OCHARI 


LAC 


END 


DAC 


UMSAVE 


ADD 


OCHARI 


CALL 


STORl 


DAC 


SAVE 


LAC* 


UMSAVE 


DAC* 


SAVE 


LAW 


-2 



/ NO, ITS AN EQM 
/YES 



/EXACT FIT? 

/*12JAH12* YES 

/NO 

/*12JAH12* MOVE UP 



/*12JAH12* 

/*12JAH12* TINE SLICE UP? 

/no 

/YES, LET SOMEONE ELSE RUM 
/APPE^ID 



/IMSERT 



/ RTM ^ITH <AC>=EMO 
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4044 


04554 


R 


305103 


R 


4045 


04555 


R 


045103 


R 


4046 


04556 


R 


540015 


A 


4047 


04557 


R 


604562 


R 


4048 


04560 


R 


304660 


R 


4049 


04561 


R 


604550 


R 


4050 


04562 


R 


304660 


R 


4051 


04563 


R 


045040 


R 


4052 


04564 


R 


313712 


R 


4053 


04565 


R 


040015 


A 


4054 


04566 


H 


225103 


R 


4055 


04567 


R 


065040 


R 


4056 


04570 


R 


200207 


R 


4057 


04571 


R 


065103 


R 


4058 


04572 


R 


604446 


R 


4059 











HOVDl 



ADD 

DAC 

SAO 

JMP 

ADD 

JMP 

ADD 

DAC 

ADD 

DAC 

LAC* 

DAC* 

LAC 

DAC* 

JMP 



UNSAVE 
UN SAVE 
R15 
1^0 VDl 
OCHARI 

OCHARI 

SAVE 

(777776 

R15 

UNSAVE 

SAVE 

VAL 

IJHSkME 

PLACE7 



/15=0CTAL STEP # 
/*12JAH12* 



/*12JAH12* 

/-2, REALLY -1 (i^HAT CLiJTZ WROTE THIS?) 



-Iv. I 
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4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
405B 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
40B0 
40^1 
40B2 
4083 
4084 
40B5 
4086 
4087 
40R8 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 



.IFPNZ MODIFY 











/ 
/ 

/X^^BUF2 
/ 


- MOVE 


STEP FR 


04573 


R 


000000 


A 


/ 

MBUF2 







04574 


R 


040017 


A 




OAC 


R17 


04575 


R 


220017 


A 




hhZ^ 


R17 


04576 


R 


653606 


A 




LM0iCLAClLLSf6 


04577 


R 


040214 


R 




DAC 


^ 


4600 


R 


340017 


A 




TAP 


R17 


04601 


R 


040014 


h 




DAC 


R14 


04602 


R 


200017 


k 




LAC 


R17 


04603 


R 


723776 


A 




AAC 


-2 


04604 


R 


040017 


A 




DAC 


R17 


04605 


R 


200133 


R 




LAC 


8UFF2 


04606 


R 


723777 


A 




AAC 


-1 


04607 


R 


040015 


A 




DAC 


R15 


04610 


R 


220017 


A 


HSSUF 


LAC* 


R17 


4 611 


R 


060015 


A 




DAC* 


R15 


04612 


R 


200017 


A 




LAC 


R17 


04613 


R 


540014 


A 




SAD 


R14 


04614 


R 


624573 


R 




JMP* 


r'1BUF2 


04615 


R 


604610 


R 


/ 
/ 

/XERHOD 
/ 


JMP 

- ERASE 


?^SBUF 
STEP F 


4616 


R 


000000 


A 


/ 

ERMOD 







04617 


R 


040207 


R 




DAC 


VAL 


04620 


R 


105123 


R 




CALL 


STEP 


04621 


R 


777777 


A 




LAW 


-1 


04622 


R 


340016 


A 




TAD 


R16 


04623 


R 


040014 


A 




DAC 


R14 


04624 


R 


220016 


A 




LAC* 


R16 


04525 


R 


653606 


A 




LMQlCLAC'LLS+6 


04626 


R 


340016 


A 




TAD 


R16 


04627 


R 


040015 


A 




DAC 


R15 


04630 


R 


140652 


R 




DZM 


SWAPSl^I 


04631 


R 


540167 


R 


ER55 


SAD 


END 


04632 


R 


604637 


R 




JMP 


ER6 


04633 


R 


220015 


A 




LAC* 


R15 


04634 


R 


060014 


A 




DAC* 


R14 


04635 


R 


200015 


A 




LAC 


R15 


04636 


R 


604631 


R 




JMP 


ER55 


04637 


R 


200014 


A 


ER6 


LAC 


R14 


04640 


R 


103744 


R 




CALL 


STORl 


04641 


R 


440652 


R 




ISZ 


SWAPSW 


04642 


R 


624616 


R 




JMP* 


ERMOD 


04643 


R 


101533 


R 




JHS 


HANG 



riO^ TO STRI^3G BUFFER 

/START OF OLD LQC 

/STEP COUNT 
/END OF OLD LQC 



/SET UP AUTO-IiMDEX 
/START OF STRUNG BUFFER 



/*12JAH17* 
/*12JAH17* 



/;V!OVE WORD 



/DONE? 

/iZS 

/NO 



ITION 



/SAVE STEP « 
/FIND IT 



/*12JAH17* 
/*12JAH17* 



/START OF STEP 

/STEP COUNT 

/END OF STEP 

/INHIBIT SWAP DURING PROG UPDATE 

/DOME? 

/YES 

/MOVE NEXT 

/K'ORD UP IN PARTITION 

/RESET "EMD" 

/TIME SLICE UP? 

/NO 

/YES, LET SOMEONE ELSE RUN 
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4112 
4113 
4114 
4115 



04644 R 624616 R 



JMP* 

.ENDC 
« E JEC T 



ERMOD 
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4116 
4117 
4119 
4119 
4120 
4121 
4122 
412 3 
4124 
4125 
4126 
4127 
4128 



4129 
4130 
4131 
4132 
4133 
41 34 
4135 
41 36 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 

4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 



04645 
04646 
04647 
04650 
04651 
04652 
0^653 
04654 
04655 
04656 
04657 



04560 
04661 
04662 
04663 
04664 
04665 
04666 
04667 
4670 
04671 
04672 
04673 
04674 
4675 
04676 
04677 
04700 
04701 
04702 
04703 



R 000000 A 

R 220222 R 

R 744000 A 

R 420223 R 

R 624645 R 

R 742020 A 

R 742020 A 

R 742020 A 

R 513702 R 

R 744000 A 

R 624645 R 



R 000000 A 
R 440223 R 
R 220222 R 



R 744000 
R 420223 
R 624660 
R 747420 
R 604675 R 
R 742020 A 
R 742020 A 
R 513702 R 
R 744000 
R 624660 
R 440222 
R 213732 
R 040223 R 
R 220222 R 
R 653606 A 
R 744000 A 
R 624660 R 



04704 R 653606 A 

04705 R 745000 A 

04706 R 513702 R 

04707 R 745002 A 



/XCHAR - 

/ 

/ OPOINT 

/ OPLACE 

/ CHARA 

/ IN TH 

/ 

OCHAR 



LOAD A CriARACTER USIHQ OPQIWT & OPLACS 

CONTAINS PTR TO WORD COMTAIM"ING CHARACTER 

CONTAINS CXCOl, (XC02, OR (XC03 DEPE^OI;^IG 0^ WHETHER THE 

CTER JUST EXTRACTED WAS THE EIRST, SECOND OR THIRD RESPECTIVELY 

E WORD POINTED TO BY OPOIfyT 





LAC* 

CLL 

J M P ^ 
RTR 



AMD 
CLL 
J!4P* 



OPOIMT 

OPLACE 
OCHAR 
RTR ? RtR 



(77 



OCHAR 



/FETCH ALL 
/tl2JAH14^ 
/*12JAH14=$^ 
/*t2JAH14* 



/*12JAH17* 
3 CHARS OF ^ORD /1=1 2JAH17't= 
LINK vjUST BE CLEAR UPON EXIT 
PICK & EXTRACT CHAR 
3RD CHAR 
2MD CHAR 



/*12JAH14=t' REMOVE EXTRANEOUS BITS 
/*12JAH141= LINK MUST BE CLEAR UPON EXIT 
/*12JAH14* 



/ 
/ 
/ 

/XCHARI - INDEX AND LOAD A CHARACTER USI\'G OPOI^MT AND OPLACE 

/ 

OCHARl 




ISZ 

LAC* 
c LL 

XCT* 

JNP* 



OPLACE 
OPOINT 

OPLACE 
OCHARl 



SZLiRTRiCLL 
JMP XCH2 
RTR ; RTR 



/ADVANCE TO NEXT 

/*12JAH14* FETCH 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* 



/*12JAH17* 
CHAR POS /*12JAH17* 
ALL 3 CHARS OF WORD 
LinK MUST SE CLEAR UPOM EXIT 
SELECT CHAR POS & EXTRACT CHAR 

3RD CHAR 
MIDDLE CHAR? 
no, ADVANCE OPOINT 
YES 



XCH2 



AND 
CLL 
jivip* 

ISZ 
LAC 
DAC 

LAC* 



/ 

XCOl 
XC02 
XC03 
XC04 
/ 



(77 

OCHARl 

OPOIMT 

(XCOl 

OPLACE 

OPOIMT 

CLACJL?>^QlLLS + 6 

CLL 

JMP* OCHARl 

CLAC»LWQ»LLS+6 
SKP'CLL 
hHD (77 

SKPISTL 

.EJECT 



/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*t2JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 



REHOVE EXTRAI^EOUS BITS 

LINK fMUST 8E CLEAR UPON EXIT 

ADVANCE TO MEW SORD 
POSITION TO 
FIRST CHAR 

NEW '/^ORO 

in LEFTMOST CHAR 



FETCH 
SHIFT 



/*12JAH14* EXTRACT 1ST CHAR 

/*12JAH14* EXTRACT 2H0 CHAR 

/*12JAH14* EXTRACT 3RD CHAR 

/*12JAH14* ADVANCE TO 1ST CHAR 



OF NEXT K'ORD 
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4163 










/ 












4154 










/XSBOPT 


- BA! 


:KSPACE O^JE 


CHARACTER 






4165 










/ 












4166 


04710 


R 


000000 


k 


SUBOPT 











/*12JAH17* 


4167 


04711 


R 


777777 


A 




LAW 


-t 


/mvE 




/*12JAB17* 


4168 


04712 


R 


340223 


R 




TAD 


QPLACE 


/♦12JAH14* 


CHAR POSITIDN 




4169 


04713 


R 


553750 


R 




SAO 


(XCOl-1 


/*12JAH14=^ 


BACK 1. STILL IM 


SAME WORD? 


4170 


04714 


R 


604717 


R 




JMP 


KSBOPl 


/*12JAH14* 


MQ 




4171 


04715 


R 


040223 


R 




DAC 


QPLACE 


/*12JAH14* 


YES 




4172 


04716 


R 


624710 


R 




Jh]9^ 


SUBOPT 


/*12JAH14* 






4173 


04717 


R 


777777 


A 


XS80P1 


LAw^f 


-1 


/*12JAH14* 


NQVE ^ORD 




4174 


04720 


R 


340222 






TAD 


OPOIMT 


/^12JAH14* 


PTR BACK 




4175 


04721 


R 


040222 


R 




DAC 


OPOIi^^T 


/l^nJAHUI^ 


ONE 




4176 


04722 


R 


213736 


R 




LAC 


(XC03 


/*12JAH14* 


POI^T TO 




4177 


04723 


R 


040223 


R 




DAC 


QPLACE 


/*12JAH14* 


3RD CHAR 




4178 


04724 


R 


624710 


R 




JMPJjs 


SUBOPT 


/*12JAH14=^ 






4179 










/ 












41R0 












•EJECT 
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4181 
415^2 
418 3 
4184 
418 5 
4196 
41 B7 
4188 
4189 
4190 
4191 



4192 
4193 
4194 
4195 
4196 
^197 
4198 
4199 
4200 
4201 
4202 



4203 
4204 
4205 
420b 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 



/ 



INDEX AMD DEPOSIT A CHARACTER USI^IG IPQI^J^ AND IPLACE 



04725 R 000000 A 

04726 R 620221 R 

04727 R 746020 A 

04730 R 742020 A 

04731 R 742020 A 

04732 R 740020 A 

04733 R 652000 A 

04734 R 213730 R 

04735 R 040221 R 
0473b R 440220 R 
04737 R 220220 R 

04740 R 513645 R 

04741 R 640002 A 

04742 R 060220 R 

04743 R 624725 R 

04744 R 440221 R 

04745 R 746010 A 

04746 R 742010 A 

04747 R 742010 A 

04750 R 652000 A 

04751 R 770077 A 

04752 R 520220 R 

04753 R 640002 A 

04754 R 060220 R 

04755 R 624725 R 

04756 R 440221 R 

04757 R 652000 A 

04760 R 777700 A 

04761 R 520220 R 

04762 R 640002 A 

04763 R 060220 R 

04764 R 624725 R 

04765 R 604744 R 

04766 R 604756 R 

04767 R 604727 R 



/XICHARI « 
/ 

IPOI.MT CONTAINS PTR TO W'ORO TO CONTAIN CHARACTERS 

IPLACE CONTAINS (XCIl, CXCI2, (XCI3 OEPEiMDIMG ON tAlHETHER THE ^EXT 

CHAR TO BE DEPOSITED SHOULD GO INTO THE 1ST , 2ND, OR 3RD CHAR 

RESPECTIVELY OF THE IaIORD. 



/ 
/ 
/ 
/ 
/ 
ICHARl 



IEMTO 



lEMTl 



IENT2 



/ 

XCIl 

XCI2 

XCI3 

/ 





J.MP^ 

CLL'RTR 



LMQ 

LAC 

DAC 

ISZ 

LAC* 

AND 

OMQ 

DAC* 

ISZ 
CLLIRTL 



LMO 

LAi^ 

AND* 

OMQ 

OAC* 

JMP* 

ISZ 

LMQ 

LAW 

AND* 

DMQ 

DAC* 

JMP* 

JHP 
JMP 

JMP 

.EJECT 



IPLACE 
? RTR . 



CXCU 

IPLACE 

IPQINT 

IPOINT 
(7777 

IPOIWT 
ICHARl 
IPLACE 
; RTL 



-7701 

IPOIMT 

IPOIMT 
ICHARl 
IPLACE 

-100 
IPOIMT 

IPOIMT 
ICHART 

lENTl 
IEi^T2 
IE^^T0 



RTR 



RTL 



/SELE 
RAR 



n m ft 



/*12JAH17* 
HAR POSITION /*12JAH17* 

/*12JAH14* P3S CHAR IN LEFTMOST FIELD 



/*12JAH14* 
/^12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 



/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12.JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/♦12JAH14* 



STATCH IT A4AY 

SET UP 

MEXT CHAR P3S 

ADVANCE TO MSXT «0R0 

FETCH CHARS 

SAVE REST OF a^ORD 

INSERT NE»^ CHAR 

RETURN TO TARGET vvORD 

ADVANCE CHAR POS 

POS CHAR IM MIDDLE FIELD 



STATCH IT A^AY 
SAVE OLD 1ST & 
3R0 CHARS 
INSERT NE^ CHAR 
RETURN TO TARGET 



WORD 



ADVANCE CHAR POS 
STATCH IT AAK\ 
SAVE OLD 1ST & 
2!^D CHARS 
IMSERT ME^ CHAR 
RETURN! TO TARGET 



i^ORD 



/*12JAH14* 2MD CHAR 
/*12JAH14* 3RD CHAR 
/*12JAH14* 1ST CHAR 
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4222 / 

4223 /XCHARl - INDEX AMD LOAD A CHARACTER USING POINTl AMD PLACEl 

4224 / (SIMILAR TO XCHARI) 

4225 / 

4226 / CALL CHARl 

4227 / (RETURN IF CHAR SAME AS TEMPI) 
42 2 8 / (RETURN OTHERWISE) 

4229 / 

4230 04770 R 000000 A CHARl /^l2JhHn^ 

4231 04771 R 440226 R ISZ PLACEl /ADVANCE TO NEXT CHAR POS /^UJmil^ 

4232 04772 R 220225 R LAC* POINTl /*12JAHi4l= FETCH ALL 3 CHARS 

4233 04773 R 420226 R XCT* PLACEl /*12JAH34* SELECT CHAR POS & EXTRACT CHAR 

4234 04774 R 605010 R J*^? XCHU2 /=t^J2JAH14* CHECK FOR TEMPI 

4235 04775 R 747420 A SZLiRTRiCLL /*12JAH14'^ MIDDLE CHAR? 

4236 04776 R 605003 R JMP XCHl.l /*12JAH14=«' HQ , ADVANCE POIMTl 

4237 04777 R 742020 A RTR ? RTR /♦12JAH14* YES 
05000 R 742020 A 

4238 05001 R 513702 R AND (77 /*12JAH14* REMOVE EXTRANEOUS BITS 

4239 05002 R 605010 R JMP XCHi.2 /*12JAH[14^ CHECK FOR TEMPI 

4240 05003 R 440225 R XCHKl ISZ POINTl /*12JAH14* ADVAMCE TO NEW WORD 

4241 05004 R 213732 R LAC (XCOl /*12JAH14* POSITION TO 

4242 05005 R 040226 R DAC PLACEl /*12JAH14=^ FIRST CHAR 

4243 05006 R 220225 R LAC* POINTl /*12JAH14* FETCH NEW iiORD 

4244 05007 R 653606 A CLAC IL^Ql LLS + 6 /*12JAH14* SHIFT IH LEFT!^OST CHAR 

4245 05010 R 540224 R XCH1.2 SAD TEMPI /*12JAH14* 

4246 05011 R 624770 R JMP* CHARl /*12JAH14=if ShHE AS TE^Pl 

4247 05012 R 444770 R ISZ CHARl /=«=12JAH14* 

4248 05013 R 624770 R J<A9^ CHARl /*12JAH14* CHAR HOT THE SANE 

4249 / 

4250 .EJECT 
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4251 / 

4252 /XCHAR2 - INDEX A'MO LOAD A CHARACTER USING P0INT2 AND PLACE2 

4253 / (SIMILAR TO XCHARl) 

4254 / 

4255 / CALL CHAR2 

4256 / (RETURfM IF CHAR SAi^E AS TEMP2) 

4257 / (RETURN IF CHAR OTHERnSE) 

4258 / 

4259 05014 R 000000 A CHAR2 /=«^12JAH17* 

4260 05015 R 440231 R ISZ PLACE2 /ADVAWCE TO N'EXT CHAR P3S /^12JAH17* 

4261 05016 R 220230 R LAC* P.0INT2 /*12JAH14* FETCH ALL 3 CHARS 

4262 05017 R 420231 R XCT* PLACE2 /ri2JAHi4^ SELECT CHAR POS & EXTRACT CHAR 
^263 05020 R 605034 R J.MP XCH2,2 /*12JAH14* CHECK FOR TE?1P2 

4264 05021 R 747420 A SZLiRTRlCLL /*12JAH14* MIDDLE CHAR? 

4265 05022 R 605027 R JMP XCH2.1 /=*=12JAH14* NO, ADVANCE P0INT2 

4266 05023 R 742020 A RTR j RTR /*12JAH14* YES 
05024 R 742020 A 

4267 05025 R 513702 R AND (77 /*12JAH14* REMOVE EXrRA.MEOUS BITS 

4268 05026 R 605034 R JNP XCH2.2 /'^'UJAHU* CHECK FOR TSMP2 

4269 05027 R 440230 R XCH2.1 ISZ P0INT2 /*12JAH14* ADVANCE TO HEvi SORO 

4270 05030 R 213732 R LAC (XCOl /*12JAHt4* POSITION TO 

4271 05031 R 040231 R DAC PLACF2 /*12JAH14=«= FIRST CHAR 

4272 05032 R 220230 R LAC* P0INT2 /*12JAH14* FETCH MEW O^RD 

4273 05033 R 653606 A CLAC 1 LMQ 1 LLS+6 /*12JAH14* SIFT IN LEFTMOST CHAR 

4274 05034 R 540227 R XCH2.2 SAD TEMP2 /*12JAH14* 

4275 05035 R 625014 R JMP* CHAR2 /*12JAH14* SANE AS TEMP2 

4276 05036 R 445014 R ISZ CHAR2 /*12JAH14* 

4277 05037 R 625014 R JMP* CHAR2 /*12JAH14* CHAR :^0T THE SAME 

4278 / 

4279 .EJECT 
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42R0 /XSAVE - PUSH ITE=^ DM THE STACK 

4281 / 

42B2 /CALLING SEQUENCE::: 

4283 / 

4284 / LAi^ -N ///CQUMT OF ITEMS TO GO ONTO STACK 
42«5 / CALL SAVE 

4286 / LAC THIS 

4?e?7 / LACS' THAT 

42RS / ... OR ANY IMSTRUCTION THAT PUTS A VALUE IMTO THE ACCU^^ 

4299 / LAC ^J-TH ITEN 

4290 / ...RETUR?^IS TO THIS LOCATION... 

4291 / 

4292 05040 R 000000 A SAVE /^\2JkHn* 

4293 05041 R 045103 R OAC U'^SAVE /SAVE ITEM COU-^T /=^12JAH17* 

4294 05042 R mill A SBACK LAw -1 

4295 05043 R 340166 R TAD SPOIMT /GET STACK POI^MTER AND 

4296 05044 R 540170 R SAD SY^^BEG /CHECK FOR END OF STACK BUFFER. 

4297 05045 R 605060 R JMP EXTST 

4298 05045 R 425040 R S2BACK XCT* SAVE /GET ITEM FOR STACK. 

4299 05047 R 445040 R ISZ SAVE /8UMP FOR NEXT ITEM OR RETURN. 

4300 05050 R 060166 R DAC=>= SPOILT /SAVE IT^M ON STACK AND 

4301 05051 R 440166 R ISZ SPOIMT /BOMP STACK PTR. 

4302 05052 R 777775 A LAW -3 /3 LESS CHARACTERS 

4303 05053 R 360146 R TAD* SVAR /AVAILABLE FOR USER'S 

4304 05054 R 060146 R DAC=^ SVAR /PARTITION 

4305 05055 R 445103 R ISZ U^JSAVE /BUNP ITEM COUNT. 

4306 05056 R 605042 R JMP SBACK /CONTINUE. 

4307 05057 R 625040 R JMP* SAVE /FINISHED, RETURN, 
430R 05060 R 200165 R EXTST LAC STACK 

4309 05061 R 540167 R SAD EMD /OUT OF SPACE? 

4310 05062 R 000016 A ERR16 /YES, "STACK" ERROR 

4311 05063 R 046621 R DAC CONT /HO 

4312 05064 R 353741 R TAD (-1 

4313 05065 R 040165 R DAC STACK /NEN START OF STACK 

4314 05066 R 040266 R DAC GASS 

4315 05067 R 226621 R REPTRA LAC* CO^T /TRANSFER STACK 1 LOCATION UP 

4316 05070 R 060266 R DAC* GASS 

4317 05071 R 446621 R ISZ CONT 
4319 05072 R 440266 R ISZ GASS 

4319 05073 R 777777 A LAW -1 

4320 05074 R 346621 R TAD COMT 

4321 05075 R 540170 R SAD SYN8EG /END OF TRANSFER? 

4322 05076 R 751001 A SKPJCLAiC^^A /YES 

4323 05077 R 605067 R JWP REPTRA /HQ 

4324 05100 R 340166 R TAD SPOIMT 

4325 05101 R 040166 R DAC SPOIMT /NEW END OF STACK 

4326 05102 R 605046 R JMP S2BACK 

4327 / 

4328 / 

4329 / 

4330 / 

4331 / 
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4332 /XUNSAVE - POP ITEM FROM THE STACK 

4333 / 

4334 /CALLING SEQUENTE: 

4335 / 

4336 / LAi^ -N ///COUMT OF ITEMS TO COME OFF STACK 

4337 / CALL U^iSAVE 

4338 / FOLLOWED BY AMY EXECUTA8LE INSTRUCTION. INCLUDIMG MOP 

4339 / BUT GENERALLY AN li^STRUCTIOM TO MOVE VALUE FROM ACCU^ TO 'MEMORY 

4340 / 

4341 05103 P 000000 A UMSAVE /*12JAH17* 

4342 05104 R 045040 R DAC SAVE /SAVE ITEH COUMT /'!'12JAH17* 

4343 05105 R 777776 A U8ACK LAW «2 

4344 05106 R 300165 R ADO SPOIWT /DECREMEMT STACK POI?iTER, 

4345 05107 R 540165 R SAO STACK /CHECK FOR BEGINNING OF STACK SUFFER. 

4346 05110 R 000016 A ERR16 /"STACK" ERROR • STACK. UNDERFLOW, 

4347 /i^HICH IS A SYSTE!^ PROBLEM 

4348 05111 R 040166 R DAC SPOINT 

4349 05112 R 220146 R LAC^ SVAR /3 NORE CHARACTERS 

4350 05113 R 723003 A AAC 3 /AVAILABLE FOR USER'S' 

4351 05114 R 060146 R OAC* SVAR /PARTITION 

4352 05115 R 220166 R LAC* SPOIMT /GET ITEM FROM STACK AND 

4353 05116 R 425103 P XCT* UMSAVF /SAVE FOR CALLER 

4354 05117 R 445103 R ISZ Uf^SAVE /BUNP FOR NEXT ITEM OR RETURN 

4355 05120 R 445040 R ISZ SAVE /8U?^P ITEM COUNT 

4356 05121 R 605105 R JiMP UBACK /CONTINUE. 

4357 05122 R 625103 R JMP=t= Ur^SAVF /Flfv'ISHED, RETURN. 

4358 .EJECT 
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4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4 36P 
4 369 
4370 
4371 
437? 
437B 
4374 
4 3 75 
4376 
4 37 7 
4378 
4379 
4380 
4381 
4382 
4 3 R 3 











/XSTEP 
/ 

STEP 


- FIND A 


STEP 


05123 


R 


000000 


A 







05124 


R 


200206 


R 




LAC 


LOC 


05125 


R 


040016 


A 




DAC 


R16 


05126 


R 


220145 


R 




LAC* 


LVAR 


05127 


R 


540207 


R 




SAD 


VAL 


05130 


R 


625123 


R 




JMPI' 


STEP 


05131 


R 


740001 


A 




CMA 




05132 


R 


300207 


R 




ADD 


\/AL 


05133 


R 


740100 


A 




SMA 




05134 


R 


605137 


R 




JMP 


STEPl 


05135 


R 


200134 


R 




LAC 


BUFF 


05136 


R 


040016 


A 




DAC 


R16 


05137 


R 


220016 


A 


STEPl 


LAC* 


R16 


05140 


R 


653606 


A 




LMQ1CLACILLS+ 


05141 


R 


300016 


A 




ADD 


R16 


05142 


R 


540167 


R 




SAD 


END 


05143 


R 


000015 


A 




ERR15 




05144 


H 


040016 


A 




DAC 


R16 


05145 


R 


220016 


A 




LAC* 


R16 


05146 


R 


540207 


R 




SAD 


VAL 


05147 


R 


625123 


R 




JMP* 


STEP 


05150 


R 


605137 


R 




JNP 

.EJECT 


STEPl 



/*12JAH17* 
/*12JAH17* 



/PTR TO FIRST LOC OF 
/STEP BEING EXECUTED. 
/no OF STEP BEIUG EXECUTED. 
/HO OF STEP TO BE FOUND. 
/SAME, STEP FOUND, RETURN. 



/VAL'-L\^AR 

/STEP TO BE FOU^^D ABOVE. CURRENT STEP? 
/BELO'^% START SEARCH PRON CORREf^T STEP. 
/ABOVE, START SEARCH AT TOP. 



/GET STEP OFFSET kUD 

/ADD TO SEARCH PTR, 

/EMD OF STEP BUFFER? 

/YES, "STEPS" 

/NO, 

/GET WO, OF MEXT STEP. 

/IS THIS THE STEP ^E*RE LOOKING FOR? 

/YES, RETUR^?. 

/r^'O, CONTI.MUE SEARCH, 
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4384 
4385 
4396 
4387 
438B 
438Q 
4390 
4391. 
4392 
4 39 3 
4394 
4 3 95 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 

4405 
4406 
4407 
4408 
4409 











/XPAKT - FIND A 

/ 

PART 


PART 


05151 


R 


000000 


A 




05152 


R 


220145 


R 


LhC^ 


LVAR 


05153 


R 


740001 


A 


CHA 




05154 


R 


300207 


R 


ADD 


VAL 


05155 


R 


740010 


A 


RAL 




05156 


R 


200206 


R 


LAG 


LQC 


05157 


R 


745400 


A 


SZLiCLL 




05160 


R 


200134 


R 


LAC 


BUFF 


05161 


R 


040016 


A 


DAC 


R16 


05162 


R 


641002 


A 


LACQ 




05163 


R 


040207 


R 


DAC 


\fAL 


05164 


R 


220016 


A 


XPARTl LAC* 


R16 


05165 


R 


653606 


A 


LMQ!CLACiLLS+6 


05166 


R 


300016 


A 


AOD 


R16 


05167 


R 


540167 


R 


SAD 


END 


05170 


R 


000015 


A 


ERR15 




05171 


R 


040016 


A 


DAC 


R16 


05172 


R 


220016 


A 


LAC* 


R16 


05173 


R 


653323 


A 


IDIV? 


144 


05174 


R 


000144 


A 






05175 


R 


641002 


A 


LACQ 




05176 


R 


540207 


R 


SAD 


¥AL 


05177 


R 


625151 


R 


JMP* 


PART 


05200 


R 


605164 


R 


JMP 
•EJECT 


XPARTl 



/no OF STEP 8EI^:G EXECUTED 

/VAL-L'/AR 

/POINTER TO CURRE^'tT STEP 
/REF PART ABOVE OR BELOW? 
/ABOVE, START AT TOP, 

/INTEGER PORTION (PART MQ) VAL/iOO 



/GET STEP OFFSET AND 

/ADD TO SEARCH PTR. 

/EMD OF STEP BUFFER? 

/YES, "STEPS" 

/NO. 

/GET NO OF NEXT STEP. 



/IS THIS THE PART -.^E'RE LOOKING FOR? 

/YES, RETURN. 

/MO, CONTINUE SEARCH, 



/*12JAH17* 
/=^12JAH17=^ 
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4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
442B 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4 4 37 
44 3 8 
4439 
4440 
4441 
4442 
4443 
4444 
4445 



05201 R 000000 A 

05202 R 220145 R 

05203 R 741200 A 

05204 R 605234 R 

05205 R 777777 A 

05206 R 340206 R 

05207 R 040207 R 

05210 R 220207 R 

05211 R 513702 R 

05212 R 744200 A 

05213 P 605217 R 

05214 R 220206 R 

05215 R 560145 R 

05216 R 605234 R 

05217 R 220145 R 

05220 R 040207 R 

05221 R 460145 R 

05222 R 105123 R 

05223 R 060145 R 

05224 R 200206 R 

05225 R 740001 A 

05226 R 300016 A 

05227 R 300222 R 

05230 R 040222 R 

05231 R 200016 A 

05232 R 040206 R 

05233 R 625201 R 

05234 R 200206 R 

05235 R 740001 A 

05236 R 300167 R 

05237 R 745J00 A 

05240 R 605217 R 

05241 R 625201 R 



/XCHECK 


- HA^jDLE CHANGES 


/ 






CHECK 









LAC^ 


LVAR 




SK'A 






jm 


CHECK2 




LA'^ 


-1 




TAD 


LQC 




DAC 


VAL 




LAC* 


VAL 




AND 


(77 




SZAICLL 






JMP 


CHECK! 




LAC* 


LOC 




SAD* 


LVAR 




JMP 


CHECK2 


CHCCKl 


LAC* 


LVAR 




DAC 


VAL 




ISZ* 


LVAR 




CALL 


STEP 




DAC* 


LVAR 




LAC 


LOC 




CM A 






ADD 


R16 




ADD 


OPOIMT 




DAC 


OPOINT 




LAC 


R16 




DAC 


LOC 




JNP* 


CHECK 


CHECK2 


LAC 
CMA 


LOC 




ADD 


EMD 




SPAiCLL 






JN!P 


CHECKl 




JMP* 


CHECK 




.EJECT 





IN THE STEP BUFFER DURING EXECUTION 



/GET MO 
/DIRECT 
/IfES. 
/NO. 



OF STEP BEING 
NODE C^MMD? 



EXECUTED 



/*12JAH17* 
/*12JAH17* 



/DOES PREV STEP HAVE TRAILING EON? 

/no, 

/DOES STEP BUFFER PTR 

/POIMT TO STEP BEIMG EXECUTED? 

/YES. 

/GET NO OF CURRENT STEP. 

/HOLD FOR SEARCH. 

/CHANGE TO AVOID I'MNEDIATE EXIT FROM XSTEP, 

/CALLED TO UPDATE PTR IMTO STEP BUFFER, 

/RESET STEP NO. 



/OPOINT ^ OFFSET OF :HA\«GE = 
/NEW VALUE FOR OPOIt^T. 

/MEl^* VALUE FOR PTR I^iTO STEP BUFFER, 
/PTRS UPDATED, RETURM. 



/DOES STEP BUFFER PTR 

/POINT PAST END OF STEP BUFFER? 

/YES, GO UPDATE PTRS. 

/NO, RETURi^, 
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4446 /XGEXKEY - EVALUATES KEY ENCLOSED BY SQUARE BRACKETS 

4447 / 

444R /CALLING SEQUEK^CE: 

4449 / 

4450 / CALL GETKEY 

4451 / RETURN'S HERE ON SYI^TAX ERROR 

4452 / RETURMS HER IE SYi^JTAX OK 

4453 / (NEXT CHAR IM AC, AND AVAILABLE VIA OCHAR) 

4454 /RETURNS vVITH USER SUPPLIED KEY IN VAL 

4455 / 

4456 05242 R 000000 A GETKEY /*12JAH17=«= 

4457 /##### SAVE ON STACK ##### 

4458 05243 R 777772 A LAK' -6 /*12JAH17'^ 

4459 05244 R 105040 R CALL SAVE 

4460 05245 R 207163 R LAC EVAL 

4461 05246 R 200242 R LAC BKCHAR 
446? 05247 R 200216 R LAC TERM 

4463 05250 R 200215 R LAC SUN 

4464 05251 R 200202 R LAC TEMP 

4465 05252 H 200214 R LAC M 

4466 /##### «^tit# 

4467 05253 R 744000 A CLL /NUMERIC RESULT ONLY 

4468 05254 R 107163 R CALL EVAL 
446^ /###»» POPSTACK #»»## 

4470 05255 R 777772 A LAi^ -6 

4471 05256 R 105103 R CALL UNSAVE 

4472 05257 R 040214 R DAC n 

4473 05260 R 040202 R DAC TEMP 

4474 05261 R 040215 R DAC SUM 

4475 05262 R 040216 R DAC TER.M 

4476 05263 R 040242 R DAC BKCHAR 

4477 05264 R 047163 R DAC EVAL 
44 78 /##### ####« 

4479 05265 R 104645 R CALL OCHAR 

4480 05266 R 553751 R SAD (35 /RIGHT BRACKET 
44P1 05267 R 445242 R ISZ GETKEY /SYNTAX OK 

4492 05270 R 104660 R CALL OCHARI /SET UP FOR FUTURE "CALL OCHAR" 

4483 05271 R 625242 R JMP^ GETKEY 

44R4 .EJECT 
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4485 /XKE^CHK - VALIDATES USER SUPPLIED KEY 

4486 / 

4487 /CALLIMG SEQUENCE: 
448B / CALL KEYCHK 

4489 / LAC(=«^) REQUIRED KEY 

4490 / SAD(=i=) USER SUPPLIED KEY 

4491 / 

4492 /RETURNS i«ITH ACCUM=0 IF KEYS ^lATCH 

449 3 / AND WITH ACCUM>0 IN KEYS DO NOT MATCH 

4494 / LINK SET IF TRAP REQUIRED 

4495 / 

4496 05272 R 000000 A KEYCHK /*12JAH17=^ 

4497 05273 R 425272 R XCTI^ KEYCHK /FETCH REQUIRED KEY /*12JAH17* 

4498 05274 R 445272 R ISZ KEYCHK 

4499 05275 R 741200 A SNA 

4500 05276 R 605302 R JMP KEYCH2 /REQUIRED KEY ZERO, PASS ANY USER KEY 

4501 05277 R 513735 R AND C377777 /GET POSITIVE KEY 

450? 05300 R 425272 R XCT* KEYCHK /EXECUTE THE SAO COMPARE 

4503 05301 R 750000 A CLA /OK - KEYS AGREE 

4504 05302 R 445272 R KEYCH2 ISZ KEYCHK /HOP OVER THE SAD 

4505 05303 R 625272 R JMP* KEYCHK 

4506 / 

4507 /IF CALLER DECIDES NOM-MATCH IS ERROR, COI^ES HERE.,, 

4508 / 

4509 .EJECT 
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4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
452 3 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
45 31 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
45^0 
4541 
4542 
4543 
4544 
4545 
4546 
4547 

4548 
4549 

4550 
4551 
4552 
455 3 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 











/XASSEM 

/ 

ASSEM 


- ASSEM 


BLE A VARIABLE 


05304 


R 


000000 


A 







05305 


R 


777775 


A 




LAi^ 


-3 


05306 


R 


040214 


R 




DAC 


M 


05307 


R 


104660 


R 




CALL 


QCHARI 


05310 


R 


103724 


R 




CALL 


SYNTAX 


05311 


R 


605326 


R 




JMP 


ASSEM5 


05312 


R 


000003 


A 




ERR3 




05313 


R 


553752 


R 




SAD 


(45 


05314 


R 


605361 


R 




JI^P 


ASSEM4 


05315 


R 


000003 


A 


/ 

ASSEMl 


ERR3 




05316 


R 


440214 


R 


ISZ 


M 


05317 


R 


605323 


R 




JNP 


ASEH15 


05320 


R 


777777 


A 




LAW 


-1 


05321 


R 


040214 


R 




DAC 


H 


05322 


R 


605327 


R 




JMP 


ASSEM2 


05323 


R 


640505 


A 


ASEN15 


LRS 


5 


05324 


R 


200204 


R 




LAC 


SYMS 


05325 


R 


640605 


A 




LLS 


5 


05326 


R 


040204 


R 


ASSEN15 


DAC 


SYNS 


05327 


P 


104660 


R 


ASSEM2 


CALL 


OCHARI 


05330 


R 


103724 


R 




CALL 


SYNTAX 


05331 


R 


605316 


R 




JMP 


AS SEMI 


05332 


R 


000003 


A 




ERR3 




05333 


R 


553753 


R 




SAD 


C50 


05334 


R 


605337 


R 




JMP 


, + 3 


05335 


R 


140205 


R 




DZM 


SCRIPS 


05336 


R 


625304 


R 


/##### 


JMP1= 
.IFPNZ 
SAVE ON 


ASSEM 

FMOMEY 

STACK ##### 


05337 


R 


777777 


A 




LA^' 


-1 


05340 


R 


105040 


R 




CALL 


SAVE 


05341 


R 


200211 


R 




LAC 
,ENDC 


VALF 


05342 


R 


744000 


A 




CLL 




05343 


R 


107163 


R 




CALL 


EVAL 


05344 


R 


040205 


R 




DAC 


SCRIPS 


05345 


R 


513661 


R 




A^)D 


C700000 


05346 


R 


740200 


A 




SZA 




05347 


R 


000005 


A 




ERP5 
.IFPNZ 


FMONEY 










/##### 


POP STACK ##### 


05350 


P 


777777 


A 




LAW 


-1 


05351 


R 


105103 


R 




CALL 


U^nISAvE 


05352 


R 


040211 


R 




OAC 
• E^'DC 


VALF 


05353 


R 


104645 


R 




CALL 


OCHAR 


05354 


R 


553754 


R 




SAD 


(51 


05355 


R 


741000 


A 




SKP 




05356 


R 


000003 


A 




ERR3 





Hkm 



/=«=12JAH17* 
/=J=12JAH17* 



/SET TO GET UP TO 3 CHARS 

/GET FIRST CHAR AND 

/CHECK CHAR TYPE, 

/A 

/M-. "SYNTX" 

/P - IS IT A % 

/YES, 

/NO, "SYNTX" 

/THREE 5-BIT CHARS PAZKED YET? 
/*12JAH12* NO, PACK THIS ONE 
/VES, IGNORE THIS AMD 
/ALL OTHER ALPHAS UP TO PUK'CT, 

/*12JAH12* 



/SAVE ACCUM. CHARS. 

/GET NEXT CHAR AND 

/CHECK TYPE. 

/A 

/M- "SYNTX" 

/P - IS IT A ( 

/YES, GO EVAL SU6SCR. 

/^J0. 

/RETURN. 



/L CLEAR FOR HUH RESULT OMLY. 
/SAVE VALUE OF SUBSCR. 

/IS IT POS? 

/NO, "MINUS" 



/GET CHAR AFTER SUBSCR, 

/IS IT A ) 

/YES. 

/NO, "SYfMTX" 
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4562 
4563 
4564 
4565 

4566 
4567 



05357 R 104660 R 

05360 R 625304 R 

05361 R 213751 R 

05362 R 605326 R 



CALL OCHARI 

JM,P* ASSEM 
/ 

ASSEM4 LAC (35 

JMP ASSEM5 

.EJECT 



/INDEX TO 
/RETURN, 



GET i^EXT CHAR AI\fD 



/CHAMGE % TO ] 
/CONTINUE. 



AHD 



PAi 



1.27 



^^UNPS 100 
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4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
45B0 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 











/xsve 
/ 

SVE 


- HANDLE 


A STRI^I 


05363 


R 


000000 


A 







05364 


R 


104660 


R 




CALL 


OCHAPI 


05365 


R 


553755 


R 




SAD 


(42 


05366 


R 


605421 


P 




J^^P 


SVEI 


05367 


R 


104710 


R 


/##### 


CALL 
SAVE ON 


SUBOPT 
STACK 


05370 


R 


777776 


A 




LA^i 


-2 


05371 


R 


105040 


R 




CALL 


SAVE 


05372 


R 


200204 


R 




LAC 


SYNS 


05373 


R 


200205 


R 


/##### 


LAC 


SCRIPS 


05374 


R 


105304 


R 




CALL 


ASSEN 


05375 


R 


200204 


R 




LAC 


SYMS 


05376 


R 


040177 


R 




DAC 


SYM 


05377 


R 


200205 


R 




LAC 


SCRIPS 


05400 


R 


040200 


R 




DAC 


SCRIP 


05401 


R 


754000 


A 




CLLiCLA 




05402 


R 


105434 


R 




CALL 


SYMBOL 


05403 


R 


641002 


A 




LACQ 




05404 


R 


741200 


A 




SMA 




05405 


R 


000010 


A 




ERRIO 




05406 


R 


744400 


A 




SMLICLL 




05407 


R 


000011 


A 




ERRll 












/##### 


PQPSTACK 


05410 


R 


777776 


A 




LAW 


-2 


05411 


R 


105103 


R 




CALL 


UNSAVE 


05412 


R 


040205 


R 




DAC 


SCRIPS 


05413 


R 


040204 


R 


/##### 


DAC 


SYMS 


05414 


R 


213732 


R 




LAC 


CXCOl 


05415 


R 


040016 


A 




DAC 


R16 


05416 


R 


750000 


A 




CLA 




05417 


R 


440017 


A 




ISZ 


R17 


05420 


R 


625363 


R 


/ 

/TEXT ! 
/ 

svei 


jNjp* 


SVE 










jITERAL 




05421 


R 


200222 


R 


LAC 


OPOIMT 


05422 


R 


040017 


A 




DAC 


R17 


05423 


R 


200223 


R 




LAC 


OPLACE 


05424 


R 


040016 


A 




DAC 


R16 


05425 


R 


104660 


R 




CALL 


QCHARI 


05426 


R 


553755 


R 




SAD 


(42 


05427 


R 


741000 


A 




SKP 




05430 


R 


605425 


R 




JMP 


.-3 


05431 


R 


104660 


P 




CALL 


QCHART 


05432 


R 


213755 


R 




LAC 


(42 


05433 


R 


625363 


R 




JMP* 
.EJECT 


SVE 



##### 



###»# 



# # # # # 



###»# 



EXPRESSION 



/GET NEXT CHAR 

/IS IT A " 

/YES, GO PROC. TEXT LITERAL, 

/NO, BACKUP OPOIMT. 



/^12JAH17'^ 
/=«=12JAH17* 



/ASSEMBLE THE VARIABLE ^IAME 

/SAVE NfAME. 

/SAVE SUBSCR, 

/SEARCH SYMBOL TABLE. 

/IS IT DEFINED? 

/NO, "UNDEF" 

/MUHERIC? 

/ YES, - "MIXED" 

/ STRING 



/1^12JAH14=^ PQS 
/*12JAHi4* CHAR 

/POIMTS TO STR, 
/RETURN. 



/POINTS TO TEXT LIT. 
/*12JAH14* SAVE 
/*12JAH14* CHAR POS 

/IGNORE CHARS UP TO MSXT " 



/INDEX TO CHAR AFTER " 
/ " IN AC FOR 
/RETURN. 
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4619 










/SYMBOL 


STUFF: i 


SET, PUT, 


KILL 




4620 










/ 


IN SYNBGL TABLE! 






4621 










/ 


OOK 


mDEFim 


SO OR FLOATING \ 


^OINT 


4622 










/ 


OIX 


ARRAY 


(NEG SUBS 


;CR IF 


SIR) 


4623 










/ 


lOX 


NUNERIC 


VARIABLE 






4624 










/ 


IIX 


STRING ^ 


VARIABLE 






4625 










/ 


SYNBOI 


j: 








4626 










/ 


0X0 


GET 








4627 










/ 


1X0 


PUT 








462B 










/ 


0X1 


KILL 








4629 










/ 


CALLS: 


1 








4630 










/ 


G£T 


CLLiCLA 






4631 










/ 




CALL 


SY^4B0L 






4632 










/ 


PUT 


STLJCLA 






4633 










/ 




CALL 


SYMBOL 






4634 










/ 


KILL STL 








4635 










/ 




LAC EOOOOO 






4636 










/ 




CALL 


SYMBOL 






4637 










/ 


RETURN: 








4638 










/ 


GOOD SYMBOL 


In MQ 






4639 










/ 




LAC* 


R17 GETS 


VALUE 


OR STRING 


4640 










/ 




IF "GOT STRING", 


LINK: 


=1. ELSE LINK=0 


4641 










/ 


BAD 


MO AND 


LIMK CLEAR 




4642 










/ 












4643 










/ 












4644 


05434 


R 


00 00 00 


A 


SYMBOL 











4645 














.IFPNZ 


MONEY 






4646 


05435 


H 


400210 


R 






XCT 


MONYSW 




/IGNORE DZM S^APS*^ IF 


4647 


05436 


R 


741000 


A 






SKP 








464H 














.ENDC 








4649 


05437 


R 


140652 


R 






DZN 


SWAPSW 




/DON'T ALLOW USER TO 


4650 


05440 


R 


245434 


R 






XOR 


SYMBOL 






4651 














.IFPN'Z 


X^H 






4652 


05441 


R 


741400 


A 






SZL 






/LINK SET? 


4653 


05442 


R 


253662 


R 






XOR 


C400000 




/YES, SET BIT IS HECZ 


4654 














• ENDC 








4655 


05443 


R 


045434 


R 






DAC 


SYMBOL 






4656 


05444 


R 


200177 


R 






LAC 


SYM 






4657 


05445 


R 


060153 


R 






DAC* 


SYMEND 






4658 


05446 


R 


660703 


A 






ALSS 


3 






4659 


05447 


R 


045040 


R 






DAC 


SAVE 






4660 


05450 


R 


200170 


R 






LAC 


SYMBEG 






4661 


05451 


R 


040017 


A 


BA 


.CK 


DAC 


R17 




/ LOOK FOR SYMBOL 


4662 


05452 


R 


220017 


A 


BA 


»CK1 


LAC* 


R17 






4663 


05453 


R 


652703 


A 






LMOiALS 


3 






4664 


05454 


R 


545040 


R 






SAD 


SAVE 






4665 


05455 


R 


605501 


R 






JMP 


EQUAIJ 




/ FOUMO SYMBOL 


4666 


05456 


R 


641002 


A 






LACQ 








4667 


05457 


R 


740110 


A 






SNAIRAL 








4668 


05460 


R 


605465 


R 






JMP 


OVERl 




/UNDEF OR ARRAY OR FL 


4669 


05461 


R 


745100 


A 






SPAiCLL 






/NUM OR STR? 


4670 


05462 


R 


605472 


R 






JMP 


0VER2 




/STR 



/*12JAH17* 

ALREADY IM SM 

BREAK 

/*12JAH15* 

/*12JAH15* 

IH USER MODE /*12JAH15* 

/*12JAH15* 



FLOATING POIMT 
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4671 


05463 


R 


440017 


A 




ISZ 


R17 




4672 


05464 


R 


605452 


R 




JMP 


BACKl 




4673 










/ 








4674 






005465 


R 


0VER1=. 








4675 












.IFPNZ 


FMONEY 




4676 


05455 


R 


740100 


A 




SWA 




/F,P 


4677 


05466 


R 


605476 


R 




JMP 


0VER3 


/F.P 


4678 












.ENDC 






4679 


05467 


R 


220017 


A 




LAC* 


R17 




4680 


05470 


R 


300017 


A 




ADD 


R17 




4681 


05471 


R 


605451 


R 




JMP 


SACK 




4682 


05472 


R 


220017 


A 


QVER2 


LAC* 


R17 




4683 


05473 


R 


653606 


A 




LMQ'CLAC!LLS+6 




4684 


05474 


R 


300017 


A 




ADD 


R17 




4685 


05475 


R 


605451 


R 




JMP 


BACK 




4686 












.IFPNZ 


FMONEY 




4687 


05476 


R 


200017 


A 


0VER3 


LAC 


R17 




4688 


05477 


R 


723004 


A 




AAC 


4 




4689 


05500 


R 


605451 


R 




J^^P 


BACK 




4690 












• ENDC 






4691 










/ 








4692 


05501 


R 


641002 


A 


EQUALl 


LACQ 






4693 


05502 


R 


040016 


A 




DAC 


R16 




4694 


05503 


R 


200017 


A 




LAC 


R17 




4695 


05504 


R 


540153 


R 




SAD 


SYMEMD 




4696 


05505 


R 


605547 


R 




JMP 


:^QSYM 




4697 


05506 


R 


200200 


R 




LAC 


SCRIP 




4698 


05507 


R 


741200 


A 




SNA 






4699 


05510 


R 


605707 


R 




JWP 


Fi^DSYM 




4700 


05511 


R 


641002 


A 




LACQ 






4701 


05512 


H 


74U10 


A 




SPAiRAL 






4702 


05513 


R 


000017 


A 




ERR17 






4703 


















4704 


05514 


R 


740100 


A 




SMA 






4705 


05515 


R 


000017 


A 




ERR17 






4706 


05516 


R 


220017 


A 




LAC* 


R17 




4707 


05517 


R 


300017 


A 




ADD 


R17 




4708 


05520 


R 


045103 


R 




DAC 


UNSAVE 




4709 


05521 


R 


200017 


A 




LAC 


R17 




4710 


05522 


R 


045040 


R 




DAC 


SAVE 




4711 










/ 








4712 










/LOOKIN 


G FOR AND FOUND 


ARRAY 


4713 










/ 








4714 


05523 


R 


220017 


A 


kRRkil 


LAC* 


R17 




4715 


05524 


R 


745100 


A 




SPAICLL 






4716 


05525 


R 


605535 


R 




JMP 


ARRAY2 




4717 


05526 


R 


540200 


R 




SAD 


SCRIP 




4718 


05527 


R 


606076 


R 




JMP 


FNDELE 




4719 


05530 


R 


440017 


A 




ISZ 


R17 




4720 


05531 


R 


200017 


A 




LAC 


R17 




4721 


05532 


R 


545103 


R 




SAD 


UNSAVE 




4722 


05533 


R 


606022 


R 




JMP 


NOARR 





/NUN, POINT AROUND IT, 
/GO CHECK MEXT SY^^BOL. 



OR ARRAY? 



/GET ARRAY OFFSET 
/TO POIMT AROUND ARRAY, 
/GO CHECK NEXT SYMBOL. 

/GET STR OFFSET 

/TO POINT AROUND STR, 

/GO CHECK NEXT SYMBOL. 



/FOUR ^OROS IN F.P, ¥AR 



/END OF SYMBOL TABLE? 

/^ES, SYMBOL NOT DEFINED 

/NO. 

/DOES SYMBOL HAVE SUBSCRIPTS? 

/NO, FOU'^JD VARIABLE 

/YES. 

/*12JAH6* 

/ LOOKING FOR ARRAY, BUT FOUND VARIABLE 

/- "SYMBO" 

/F.P. OR UNDEFINED? *12JAH6* 

/YES, "SYMBO" *12JAH6* 



/ POIhfTER TO NEXT SYMBOL 

/ POINTER TO ARRAY'S OFFSET 



/ GET SUBSCRIPT 

/STR OR NUM ELEMENT? 

/STR 

/NUM, IS IT ELEM WE'RE LOOKING FOR? 

/YES, ARRAY ELEMENT FOUMO (NUMERIC, LINK=0) 

/UPDATE SEARCH PTR. 

/END OF ARRAY REACHED? 

/YES, ARRAY ELEMENT NOT FOUND 
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4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
475B 
4759 
4760 
4761 
4762 
4763 
4764 
476S 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
47 7 3 
4774 



05534 R 605523 R 



/m, CONTINUE 











/ELEME.'^T FOUND : 


IS STR E 


05535 


R 


744003 


A 


ARRAY2 


CHA'STL 




05536 


R 


540200 


R 




SAD 


SCRIP 


05537 


R 


606076 


R 




JI^P 


FMDELE 


05540 


R 


220017 


A 




LAC* 


R17 


05541 


R 


653606 


A 




LMQlCLAC!LLS+6 


05542 


R 


300017 


A 




ADD 


R17 


05543 


R 


545103 


R 




SAD 


iJ^SAVE 


05544 


R 


606022 






J MP 


?^OARR 


05545 


R 


040017 


A 




DAC 


R17 


05546 


R 


605523 


R 


/ 

/SYMBOL 

/ 

^*osyM 


JMP 


ARRAYl 










NOT DEFINED 


05547 


R 


205434 


R 


LAC 


SYNIBOL 


05550 


R 


650000 


A 




CLQ 




05551 


R 


744100 


A 




SMAiCLL 




05552 


R 


606166 


R 




JMP 


SY^EX 


05553 


R 


200200 


R 




LAC 


SCRIP 


05554 


R 


750230 


A 




SZA'CLA 


IIAC 


05555 


R 


605621 


R 




JMP 
•IFPNZ 


APPARR 
F^ONEY 


05556 


R 


540211 


R 




SAD 


VALF 


05557 


R 


605641 


R 




JMP 
.ENDC 


APPFP 


05560 


R 


777777 


A 




LAW 


• 1 


05561 


R 


540207 


R 




SAD 


VAL 


05562 


R 


605575 


R 


/ 

/PUT NE 

/ 

APPMUM 


JMP 


APPSTR 










n NUMERIC VARIAB 


05563 


R 


777775 


A 


LAW 


-3 


05564 


R 


300170 


R 




ADD 


SYMBEG 


05565 


R 


040017 


A 




DAC 


R17 


05566 


R 


104034 


R 




CALL 


ST0R2 


05567 


R 


200177 


R 




LAC 


SY^ 


05570 


R 


253662 


R 




XOR 


(400000 


05571 


R 


060017 


A 


DEFMUM 


DAC* 


R17 


05572 


R 


200207 


R 




LAC 


^AL 


05573 


R 


060017 


A 




DAC* 


R17 


05574 


R 


606166 


R 


/ 


JMP 


SYMEX 










f 

/PUT NEW STR VARIABLE 


05575 


R 


777776 


A 


APPSTR 


LAW 


-2 


05576 


R 


300133 


R 




ADD 


BUFF2 


05577 


R 


040015 


A 




DAC 


R15 


05600 


R 


220133 


P 




LAC* 


8UFF2 



/IS IT ELEM ^E'RE LOOKING FOR? 

/YES, ARRAY ELEMENT PDUMD (STRIMG, LI^3K = U 

/NO, GET STRING'S OFFSET AMD 

/ADD TO SEARCH PTR 

/TO GET NEXT ELEMENT. 

/END OF ARRAY REACHED? 

/YES, ARRAY ELEMENT MOT FOUND, 

/NO, COMTINUE. 



/ PUT? 

/ NO? UMOEFI^IEO, EXIT /^ITH ^1Q AMD LINK =0 

/ YES 

/ARRAY ELEMENT? 

/YES, GO PUT MEl^ ARRAY ELEMENT 



/FLOATIf^G POIMT 



/IS VARIABLE mm OR STR? 
/STR 



/BACK UP TO 

/NEW VALUE FOR START 

/OF SYMBOL TABLE. 

/CHECK FOR SYMBOL TABLE' OVERFLOi^. 

/INDICATES NUM VARIABLE. 

/STORE SY*1 i^ANE (OR SU3SCR IF HERE FROM MUHDEF) 

/AND VALUE. 

/ EXIT FROM PUT WEW NIU^ERIC VARIABLE 



/PTR TO STR AC 



05601 R 653606 A 



LMQiCLAClLLS+6 
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SI 


JBROUTINKS 


FOR INTERPRETFR 


4775 


05602 


R 


040220 


R 




DAC 


IPGINT 


4776 


05603 


R 


740030 


k 




lAC 




4777 


05604 


R 


740001 


A 




CMA 




4778 


05605 


R 


044103 


R 




DAC 


DECIN 


4779 


05606 


R 


723777 


A 




AAC 


-1 


4780 


05607 


R 


300170 


R 




ADD 


Syr^BFG 


4781 


05610 


R 


040017 


A 




DAC 


R17 


4782 


05611 


R 


104034 


R 




CALL 


ST0R2 


47B3 


05612 


R 


200177 


R 




LAC 


SYM 


4784 


05613 


R 


253650 


R 




XOR 


(600000 


4795 


05614 


R 


060017 


A 


OEFSTR 


DAC^ 


R17 


4786 


05615 


R 


220015 


A 




LAC* 


R15 


4787 


05616 


R 


444103 


R 




ISZ 


DECIN 


4788 


05517 


R 


605614 


R 




JMP 


• -3 


4789 


05620 


R 


606166 


R 




JMP 


SYMEX 


4790 










/ 






4791 










/PUT HEW ARRAY 


ELEMEMT 


479? 










/ 






4793 






005621 


R 


APPARR= 


• 




4794 












.XFPNZ 


FMOriEY 


479S 


05621 


R 


540211 


R 




SAD 


VALF 


4796 


05622 


R 


000017 


A 




ERR17 




4797 












.ENDC 




4798 


05623 


R 


777777 


A 




LAW 


-1 


4799 


05624 


R 


540207 


R 




SAD 


VAL 


4800 


05625 


R 


605661 


R 




JI^P 


ARRSTR 


4801 


05626 


R 


777773 


A 




LAW 


-5 


4802 


05627 


R 


300170 


R 




ADD 


SYI^BEG 


4803 


05630 


R 


040017 


A 




DAC 


Rl 7 


4804 


05631 


R 


104034 


R 




CALL 


ST0R2 


4805 


05632 


R 


200177 


R 




LAC 


SYM 


4806 


05633 


R 


253663 


R 




XOR 


(200000 


4807 


05634 


R 


060017 


A 




DAC* 


R17 


4808 


05635 


R 


213705 


R 




LAC 


(2 


4809 


05636 


R 


060017 


A 




DAC* 


R17 


4810 


05637 


R 


200200 


R 


MUMDEF 


LAC 


SCRIP 


4811 


05640 


R 


605571 


R 




JMP 


OEFMUM 


4812 










/ 






4813 












.IFPNZ 


FMONEY 


4814 










/ 






4815 










/PUT NEW FLOATI.MG POIMT VARIABLE 


4816 










/ 






4817 


05641 


R 


777772 


A 


APPFP 


hh^ 


-6 


4^18 


05642 


R 


300170 


R 




ADO 


SYMBEG 


4819 


05643 


R 


040017 


A 




DAC 


R17 


4820 


05644 


R 


104034 


R 




CALL 


ST0R2 


4821 


05645 


R 


200177 


R 




LAC 


SYM 


4822 


05646 


R 


060017 


A 




DAC* 


R17 


4823 


05647 


R 


777776 


A 




LAW 


•2 


4824 


05650 


R 


300133 


R 




ADD 


8UFF2 


4825 


05651 


R 


040015 


A 




DAC 


R15 


4826 


05652 


R 


777774 


A 




LAW 


-4 



/STR OFFSET 



/COUNT FOR STORINfG STR 

/SETUP MEW VALUE 

/FOR START OF 

/SYMBOL TABLE. 

/CHECK FOR SYN T8L OVERFLOW. 

/INDICATES STR VARIABLE, 

/GET AMOTHER WD OF STR. 

/FINISHED? 

/m, CONTINUE STORING. 

/YES, EXIT FROM PUT MEW STRIMG VARIABLE 



/ARRAY ELEM CAiMN'QT CONTAIN F,P,!!i 



/MEW ELEMENT IS A STRIMG 
/ NEW ELEf4ENT IS NUMERIC 



/CHECK FOR SYM TBL OVSRFLQ-^. 

/ ENTER SYMBOL IN SYMBOL TABLE 
/ ENTER NEW ARRAY'S OFFSET 
/ENTER MEW SU6SCR VALUE. 



/COUWT FOR STORING F.P. 

/SET UP NEW VALUE FOR START 

/OF SYMBOL TABLE 

/CHECK IF GUT OF SPACE 

/OO IN BITS 0,1 IWOICATE F.P. 
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4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 



05653 


R 


044103 


R 




DAC 


DECIM 


05654 


R 


220015 


A 




LAC* 


R15 


05655 


R 


060017 


A 




DAC* 


R17 


05656 


9. 


444103 


R 




ISZ 


DEC IN 


05657 


R 


605654 


R 




JMP 


.-3 


05660 


R 


606166 


R 


/ 
ARRSXR 


JMP 

,ENDC 


SYMEX 


05661 


R 


777776 


A 


hh\ti 


-2 


05662 


R 


300133 


R 




ADD 


8UFF2 


05663 


R 


040015 


A 




DAC 


R15 


05664 


R 


220133 


R 




LAC* 


6UFF2 


05665 


R 


653606 


A 




LW0iCLAC:LLS^6 


05666 


R 


040220 


R 




DAC 


IPOIWT 


05667 


R 


740030 


A 




lAC 




05670 


R 


740001 


A 




CMA 




05671 


R 


044103 


R 




DAC 


DEC IN 


05672 


R 


723775 


A 




AAC 


-3 


05673 


R 


300170 


R 




ADD 


SYMBEG 


05674 


R 


040017 


A 




DAC 


R17 


05675 


R 


104034 


P 




CALL 


ST0R2 


05676 


R 


200177 


R 




LAC 


SYM 


05677 


R 


253663 


R 




XOR 


C200000 


5700 


R 


060017 


A 




DAC* 


R17 


05701 


R 


200220 


R 




LAC 


IPOIMT 


05702 


R 


313705 


R 




ADD 


(2 


05703 


R 


060017 


A 




DAC* 


R17 


05704 


R 


200200 


R 


STRDEF 


LAC 


SCRIP 


05705 


R 


740001 


A 




CM A 




05706 


R 


605614 


R 


/ 

/FOUND 

/ 
FNDSYM 


JMP 


DEFSTR 










A SYMBOL 




05707 


R 


641002 


A 


LACO 




05710 


R 


742110 


A 




SMAiRTL 




05711 


R 


605740 


R 




JMP 


FMDARR 


05712 


R 


205434 


R 




LAC 


SYMBOL 


05713 


R 


513756 


R 




AND 


(500000 


05714 


R 


741200 


A 




SMA 




05715 


R 


606166 


R 




JMp 


SYMEX 


05716 


R 


740400 


A 




SNL 




05717 


R 


606152 


R 




JH9 


HUmhR 


05720 


R 


220017 


A 




LAC* 


R17 



05721 R 653606 A 

05722 R 605747 R 



05723 R 205434 R 

05724 R 513756 R 

05725 R 740200 A 

05726 R 605735 R 

05727 R 200211 R 



LN'QiCLACILLS + 6 



FLOATl 



JMP 

,IFPNZ 

LAC 

AND 

SZA 

JMP 

LAC 



DELETl 

FMOMEY 
SYMBOL 
(500000 

FL0AT2 
VALF 



/ POINTER TO BEGINN'IMC 3F STRING AC 



/ OFFSET 



/COUNT FOR STORING STR, 



/CHECK FOR SYM TBL OVERFLOW. 

/INDICATES ARRAY ELEMENT. 
/STORE SYMBOL '^AME 



/ ENTER HE)fi ARRAY'S OFFSET 

/SUBSCR VAL FOR STR HELD IN PS CONP 
/GO STORE REST OF STR: ELEN. 



/GET SYM TBL E-^TRY FOR FOUND SYM 

/ IT'S AN' ARRAY (CAN 3MLY BE KILLED) 

/ LOOKING FOR AND FOUND VARIABLE 



/ GOT VAR? EXIT, LKri If STR, IF NUM 

/PUT OR KILL; IS IT STR OR NUM? 

/ FOUND NUM VAR 

/ FOUND STR VAR? KILL IT, CHECK FOR PUT OR KILL 



/FLOATING POINT 

/GET, PUT, OR KILL? 
/KILL OR PUT 
/GET 
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4879 05730 R 741200 A SNA /LEGAL GET? 

4880 05731 R 000017 A ERR17 /HQ 

48R1. 05732 R 754003 A CLCiSTL /SIHULA.TE STRING RETURM FOR KSVE'S BENEFIT 

4882 05733 R 140211 R DZM VALF /FLAG TO IMDICATE F,P, V'ALUE RETURNED 

4R93 05734 R 606166 R J^P SYMEx 

48R4 05735 R 440017 A FL0AT2 ISZ R17 /GO KILL IT 

4885 05736 R 213757 R LAC C5 

4886 05737 R 605750 R JMP DELET2 

4887 .ENDC 

4888 / 

4889 005740 R FNDARR=, 

4890 .IFPNZ F^^OfM'EY 

4891 05740 R 740400 A SNL /FLOATING POINT OR ARRAY? 

4892 05741 R 605723 R jr^P FLOATl /FLOATING POIMT 

4893 .ENDC 

4894 05742 R 205434 R L.AC SYMBOL /ENTIRE ARRAY TO BE KILLED 

4895 05743 R 513664 P AMD ClOOOOO 

4896 05744 R 745200 A SNAiCLL / KILL? 

4897 05745 R 000017 A ERR17 / NO- "SYMBQ" 

4898 05746 R 220017 A DELETE LAC* R17 / YES; ARRAY'S OFFSET 

4899 05747 R 313705 R DELETl ADO (2 / EMTER HERE TO DELETE STRING VARIABLE 

4900 05750 R 044103 R DELET2 DAC OECIrNj / ENTER HERE TO DELETE NUMERIC OR FLOATIMG POINT 

4901 /(VARIABLES AND ELEMENTS) 

4902 05751 R 2000)6 A DELET3 LAC R16 

4903 05752 R 613664 R h^D (lOOOOO 

4904 05753 R 740200 A SZA 

4905 05754 R 000017 A ERR17 / TRIED TO KILL A SPECIAL VARIABLE- "SYM30" 

4906 05755 R 777775 A LAl-^ -3 / ENTER HERE TO DELETE STRING ELEf^EMT 

4907 05756 R 300017 A ADD R17 

4908 / 

4909 /MOVE EVERYTHING IN SYMBOL TABLE 00^%'N 

4910 /(OVERLAY AREA OCCUPIED Bi DELETED ENTRY) 

4911 / 

4912 05757 R 540170 R OELNOV SAD SYMBEG 

4913 05760 P 605771 R JMP DELEMD /FINISHED, 

4914 05761 R 045103 R DAC UNSAVE /FETCH PTR 

4915 05762 R 304103 R ADD OECIN /PLUS OFFSET 

4916 05763 R 045040 R DAC SAVE /EQUALS "STORE" PTR. 

4917 05764 R 225103 R LAC* UNSAVE /FETCH 'WORD AND 

4918 05765 R 065040 R DAC* SAVE /STORE IT. 

4919 05766 R 777776 A LA'W -2 

4920 05767 R 305103 R ADD UNfSAVE /DECREMENT "FETCH" PTR. 

4921 05770 R 605757 R JMP DEL^OV 

4922 / 

4923 05771 R 304103 R DELEND ADD OECIN /NEW VALUE FOR SYMBEG. 

4924 05772 R 104034 R CALL ST0R2 /UPDATE SYMBEG S, SVAR. 

4925 05773 R 205434 R LAC SYMBOL 

4926 05774 R 740100 A SMA /'^AS CALL FOR PUT OR KILL? 

4927 05775 R 606166 R JMP SYMEX / KILL, RETURN. 

4928 05776 R 200016 A LAC R16 

4929 .IFPNZ FMONFY 

4930 05777 R 741110 A SPAIRAL /DATA TYPE? 
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4931 

4932 

4933 

4934 

4935 

4936 

4937 0600? R 606011 R JMP CHKARR /PUT NEW ARRAY ELE^^. 

4938 

4939 06003 R 540211 R SAD \^ALF /FLOATING PT,? 

4940 06004 R 605641 R JMP APPFP /YES 
4941 

4942 06005 R 777777 A LAW -i /MO 

4943 

4944 06007 R 605575 R JMP APPSTR / PUT NEW STR \/AR 

4945 06010 R 605563 R JMP APPWUN! / PUT NEi^' NU.M '/AR 
4946 
4947 
494« 

4949 06011 R 540211 R SAD VALF /FLOATIMG POIMT? 

4950 06012 R 000017 A ERR17 /ERROR, F,P, CAiMwOT G3 im'O ARRAY ELEHEM'T 
4951 

4952 06013 R 207066 R LAC ■^"RSTFP /PTR TO ARRAY'S OFFSET BEFORE VIQVE, 

4953 06014 R 304103 R ADD DECIM /PLUS OFFSET OF DELETED ELEM, 

4954 06015 R 045040 R DAC SAVE /POIMTS TO PRESENT L3C OF ARRAYS OFFSET, 
4955 
4956 

4957 06020 R 606046 R JMP INSSTR / PUT NEW STR ELE 

495B 06021 R 606030 R JMP INSNUM / PUT ^JEw MUM ELE 

4959 

4960 06022 R 205434 R NOARR LAC SYMBOL / LOOKING FOR AND FOU*MD ARRAY, BUT DIDN'T 

4961 06023 R 650000 A CLQ / FIND SPECIFIED ELE^EMT 

4962 06024 R 754101 A SMAiCLCiCLL / PUT? 

4963 06025 R 606166 R JMP SY'^EX / NO, EXIT, UNDEF ARRA^ ELEH ON GET OR KILL 

4964 06026 R 540207 R SAO VAL / YES, STR OR f^lU^? 

4965 06027 P 606046 R JMP INSSTR /STR 
4966 
4967 
4968 

4969 06030 R 200170 R INSNUN LAC SYMBEG / PUT ^E'^ MUHERIC ARRAY ELENIEHT 

4970 
4971 

4972 06033 R 040017 A DAC R17 /'MEW VALUE FOR SYMBEi 

4973 06034 R 104034 R CALL ST0R2 /UPDATE SYMBEG & CHK T3'L OVERFLOv*?. 
4974 

4975 06036 R 313705 R ADD (2 /GOT TO BE Or^E'S COMPLEMENT! • • 

4976 06037 R 065040 R DAC* SAVE /INCREASE ARRAY'S OFFSET 

4977 06040 R 220014 A LAC* R14 /^--AKE ROOM poR MEw NUM ELE^JENT. 
497fi 
4979 

4980 06043 R 545040 R SAD SAVE /FINISHED? 

4981 06044 R 605637 R JMP NUMDEF /YES, GO INSERT MEW MUM ELEM. 

4982 06045 R 606040 R JMP .-5 /NO, CONTINUE. 



06000 


R 


750000 


A 




CLA 


/STRIN 


06001 


R 


751130 


A 




SPAICLA 

.ENDC 

.IFNOZ 

SMA 

.ENDC 


!IAC 

FMONEY 


0600? 


R 


606011 


R 




JMP 
.IFPNZ 


CHKARR 


06003 


R 


540211 


R 




SAD 


VALF 


06004 


R 


605641 


R 




JMP 

.ENDC 


APPFP 


06005 


R 


777777 


A 




LAW 


"1 


06006 


R 


540207 


R 




SAD 


VAL 


06007 


R 


605575 


R 




JMP 


APPSTR 


06010 


R 


605563 


R 


/ 

CHKARR= 


JMP 


APPNUM 






006011 


R 


• 














.IFPNZ 


FMONEY 


06011 


R 


540211 


R 




SAD 


VALF 


06012 


R 


000017 


A 




ERR17 
.ENDC 




06013 


R 


207066 


R 




LAC 


■^■RSTEP 


06014 


R 


304103 


R 




ADD 


OECIM 


06015 


R 


045040 


R 




DAC 


SAVE 


06016 


R 


750001 


A 




CLC 




06017 


R 


540207 


R 




SAD 


VAL 


06020 


R 


606046 


R 




JMP 


IMSSTR 


06021 


R 


606030 


R 


/ 

NOARR 


JMP 


INSNUM 


06022 


R 


205434 


R 


LAC 


SYMBOL 


06023 


R 


650000 


A 




CLQ 




06024 


R 


754101 


A 




SMAiCLC 


iCLL 


06025 


R 


606166 


R 




JMP 


SYMEX 


06026 


R 


540207 


R 




SAO 


VAL 


06027 


P 


606046 


R 


/ 

/PUT NE 

/ 

INSNUN 


JMP 


INSSTR 










W NUMERIC ARRAY ELEMENT 


06030 


R 


200170 


R 


LAC 


SYMBEG 


06031 


R 


040014 


A 




DAC 


R14 


06032 


R 


723776 


A 




AAC 


-2 


06033 


R 


040017 


A 




DAC 


R17 


06034 


R 


104034 


R 




CALL 


ST0R2 


06035 


R 


225040 


R 




LAC* 


SAVE 


06036 


R 


313705 


R 




ADD 


(2 


06037 


R 


065040 


R 




DAC* 


SAVE 


06040 


R 


220014 


A 




LAC* 


R14 


06041 


R 


060017 


A 




DAC* 


R17 


06042 


R 


200014 


A 




LAC 


R14 


06043 


R 


545040 


R 




SAD 


SAVE 


06044 


R 


605637 


R 




JMP 


NUMDEF 


06045 


R 


606040 


R 




JMP 


.-5 
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4983 










/ 






4984 










/PUT NE 


W STR ARRAY ELEMENT 


49B5 










/ 






4996 


06046 


R 


777776 


A 


INSSTR 


LAW 


•2 


4987 


06047 


R 


300133 


R 




ADD 


8UFF2 


4988 


06050 


R 


040015 


h 




DAC 


R15 


4989 


06051 


R 


220133 


R 




LAC^*' 


9UFF2 


4990 


06052 


R 


653606 


A 




LMQ'CLAClbLS+6 


4991 


06053 


R 


723002 


A 




AAC 


2 


4992 


06054 


R 


040220 


R 




DAC 


IPOIMT 


4993 


06055 


R 


740001 


A 




CMA 




4994 


06056 


R 


044103 


R 




DAC 


oeci^j 


4995 


06057 


R 


200170 


R 




LAC 


S^MBEG 


4996 


06060 


R 


040014 


A 




DAC 


R14 


4997 


06061 


R 


304103 


R 




ADD 


DECIM 


4998 


06062 


R 


040017 


A 




DAC 


R17 


4999 


06063 


R 


104034 


R 




CALL 


ST0R2 


5000 


06064 


R 


225040 


R 




LAC* 


SAVE 


5001 


06065 


R 


300220 


R 




ADD 


I POINT 


5002 


06066 


R 


065040 


R 




DAC^^' 


SAVE 


5003 


06067 


R 


444103 


R 




ISZ 


DECIM 


5004 


06070 


R 


220014 


A 




LAC=<' 


R14 


5005 


06071 


R 


060017 


A 




DAC* 


R17 


5006 


06072 


R 


200014 


A 




LAC 


R14 


5007 


06073 


R 


545040 


R 




SAD 


SAVE 


5008 


06074 


R 


605704 


R 




JMP 


STRDEF 


5009 


06075 


R 


606070 


R 




JMP 


.-5 


5010 










/ 






5011 


06076 


R 


205434 


R 


FNDELE 


LAC 


SY-MBHL 


5012 


06077 


R 


513756 


R 




AND 


(500000 


5013 


06100 


R 


741200 


A 




SNA 




5014 


06101 


R 


606166 


R 




JMP 


syi^Ex 


5015 


06102 


R 


740400 


A 




SNL 




5016 


06103 


R 


606137 


R 




JMP 


numclb: 


5017 






006104 


R 


DELELEM 


■~ • 




5018 












,IFPNZ 


Ff^OMEY 


5019 


06104 


R 


750130 


A 




SMAICLA 


ilAC 


5020 


06105 


R 


606110 


R 




JMP 


DELELO 


5021 


06106 


R 


540211 


R 




SAD 


VALF 


5022 


06107 


R 


000017 


A 




ERR17 




5023 












,ENDC 




5024 


06110 


R 


220017 


A 


DELELO 


LAC* 


R17 


5025 
















5026 


061 11 


R 


653606 


A 




LMO'CLACiLLS+6 


5027 


06112 


R 


723002 


A 




AAC 


2 


5028 


06113 


R 


044103 


R 


DELEL2 


DAC 


DECIM 


5029 


06114 


R 


740001 


A 




CMA 




5030 


06115 


R 


325040 


R 




ADD* 


SAVE 


5031 


06116 


R 


741100 


A 




SPA 




5032 


06117 


R 


606124 


R 




JMP 


OfM-LYOME 


5033 


06120 


R 


065040 


R 


DELELl 


DAC* 


SAVE 


5034 


06121 


R 


205040 


R 




LAC 


SAVE 



/POI^JTS TO BEGIhJ'^ING DF STR AC 



/STR OFFSET 

/COUNT FOR STORIMG SIR. 



/NE^ VALUE FOR SYNBE3. 

/UPDATE SY^-IBEG & CK T8L OVERFLOvV", 



/INCREASE ARRAY'S OFFSET 

/HAKE ROOM FOR ^E^ STR ELE^ES^T, 

/FINISHED? 

/YES, GO INSERT MEW STR ELEM, 

/MO, COiMTIN^UE. 

/ LOOKING FOR AMD FOONO ARRAY ELE^IEMT, 
/ STRING IF LINK=1, MUNBERIC IF 

/ GOT ELEMENfT? EXIT, LIMK^l FOR STRING 

/ FOUND NUHERIC ELEME^IT 



/PUT? 

/no 

/YES, F.P,? 

/ARRAY CAMNOT COMTAIM F.P.JUi 

/FOUND STRING ELEMENT; KILL IT, CHECK 
/FOR PUT OR KILL 



/IS THIS ONLY ELEN IM ARRAY? 

/YES. 

/NJO, SAVE ARRAY'S NEW OFFSET 

/AND 
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5035 06122 P 047066 R OAC WRSTEP /A PTR TO IT, 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 06131 R 740400 A SNL /PUT OR KILL? 

5044 06132 R 606120 R JMP OELELl /PUT, OK FOR PUT 

5045 06133 R 777774 A LAW -4 /KILL ARRAY i^ITH OML^ 3ME ELEMENT 
5046 
5047 

5048 06136 R 605746 R JMP DELETE / GO KILL ENTIRE ARRASf 

5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 

5058 06141 R 440017 A DELNELE ISZ R17 / FOUN^D MUN ELE? KILLIT 

5059 
5060 
5061 
5062 
506 3 
5064 
5065 
5066 
5067 

5068 06150 P 606141 R Jf^P DELNELE / FOUND NUM ELE? PUT SIR ELE 

5069 06151 R 606164 R J^P PUTNIJM / FOUMD HVH ELE? PUT ^JUM ELE 

5070 / 

5071 /MUM VAR FOUND: PUT OR KILL 

5072 / 

5073 06152 R 751101 A NUNVAR SPAiCLC /PUT OR KILL? 

5074 06153 R 606157 R JMP MUMVl /PUT. 

5075 06154 R 440017 A DELt^VAR ISZ R17 / FOUMD MUM VAR? KILL IT 

5076 06155 R 213705 R LAC (2 

5077 06156 R 605750 R JMP DELET2 

5078 06157 R 540207 R NUMVl SAD VM 

5079 06160 R 606154 R JMP DELMVAR / FOU^^D m)^ VAR? PUT STR VAR 
50B0 .IFPNZ FMQNEy 
50R1 06161 R 750030 A CLA'IAC 

5082 06162 R 540211 R SAD VALF 

5083 06163 R 606154 R JMP DELNVAR /FOUMO NU^« VAR? PUT F.?. VAR, 

5084 .ENDC 

5085 06164 R 200207 R PUTNUM LAC VAL / FOUND HUM VAR? PUT MUM VAR 

5086 06165 R 060017 A DAC* R17 



06122 


R 


047066 


R 




DAC 


WRSTEP 


06123 


p 


605751 


R 


/ 

ONLYONE 


JMP 


0ELET3 


06124 


R 


047066 


R 


DAC 


'^'RSTEP 


06125 


R 


205434 


R 




LAC 


SYMBOL 


06126 


R 


742010 


A 




RTL 




06127 


R 


740010 


A 




RAL 




06130 


R 


207066 


R 




LAC 


i«/RSTEP 


06131 


R 


740400 


A 




SNL 




06132 


R 


606120 


R 




JMP 


OELELl 


06133 


R 


777774 


A 




LAW 


'4 


06134 


R 


300017 


A 




ADD 


R17 


06135 


R 


040017 


A 




DAC 


R17 


06136 


R 


605746 


R 


/ 

NUMELE= 


JMP 


DELETE 






006137 


R 
















.IFPNZ 


FMOMEY 


06137 


R 


751130 


A 




CLAUAC 

.ENDC 
.IFNOZ 
SPAICLC 
.ENDC 


iSPA 

FNOMEY 


06140 


R 


606144 


R 




JMP 


DELMLl 


06141 


R 


440017 


A 


DELNELE 


ISZ 


R17 


06142 


R 


213705 


R 




LAC 


C2 


06143 


R 


606113 


R 




JMP 


0ELEL2 






006144 


R 


DELNLlr 


'.IFPMZ 


F MONEY 


06144 


R 


540211 


R 




SAD 


VALF 


06145 


R 


000017 


A 




ERR17 
.ENDC 




06146 


R 


777777 


A 




LAW 


-1 


06147 


R 


540207 


R 




SAD 


VAL 


06150 


P 


606141 


R 




Jf^P 


DELNELE 


06151 


R 


606164 


R 




J^P 


PUTNUM 
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5087 






006166 


R 


SY^EX=. 






5088 












.IFPNZ 


(^OMEY 


50B9 


06166 


R 


400210 


R 




XCT 


muYs^ 


5090 


06167 


R 


606173 


R 




JMP 


ESYMBCU. 


5091 












,E'v'DC 




5092 


06170 


R 


440652 


R 




ISZ 


SWAPSW 


5093 


06171 


R 


741000 


A 




SKP 




5094 


06172 


R 


101533 


R 




JNS 


H^HG 


5095 


06173 


R 


047041 


R 


ESYMBOL 


DAC 


'^RPART 


5096 


06174 


R 


205434 


R 




LAC 


SYMBOL 


5097 


06175 


R 


513657 


R 




AMD 


mill 


509B 


06176 


R 


045434 


R 




DAC 


SYMBOL 


5099 


06177 


R 


207041 


R 




LAC 


^RPART 


5100 


06200 


R 


625434 


R 




JMP* 


SYMBOL 


5101 












.EJECT 





/IGNORE Si^APSl^ CODING IP IN $N 



/TIME SLICE UP? 

/m 

/YES, ALLOW OTHERS XO RUM 
/PRESERVE AC STATUS 

/STRIP OFF IBT 2 TO ALLDN 
/64K PARTITON SCO TO RJM 
/RETRIEVE FOR $H 



/*12JAH15* 
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5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5311 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 



06201 R 440234 R 

06202 R 606211 R 



06203 
06204 
06205 
06206 
06207 
06210 
06211 
06212 
06213 
06214 
06215 
06216 
06217 
06220 
06221 
06222 
06223 
06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 
06234 
06235 
06236 
06237 
06240 
06241 
06242 
06243 
06244 
06245 



000 
213 
040 
140 
750 
040 
104 
553 
606 
553 
606 
104 
744 
107 
553 
606 
043 
140 
140 
140 
104 
553 
100 
553 
100 
553 
100 
553 
606 
200 
606 
200 
744 
741 
606 



000 
662 
234 
232 
030 
23 3 
660 
7 60 
201 
753 
375 
710 
002 
163 
741 
264 
174 
256 
260 
262 
645 
761 
256 
762 
260 
763 
262 
754 
242 
207 
341 
234 
020 
600 
240 



/XBOOL 

/ 

/ 

/ 

/ 

/ 

UMOT 

/ 

/EfMTRY 

/ 

BQOL 



XBOOLl 
XB00L2 
XB00L3 



■ BOOLEAN EVA.LUATDR SUBROUTINE 

CALLS TO BOOLL. 800LG, AND BOOLE ARE RECURSIVE 
CALLS TO XRELl TO PROCESS NU;^1ERIC RELATIONAL 
OPERATORS. 



BOOLNM 



/##### 



J AC 



06246 R 777774 A 

06247 R 105103 R 

06250 R 046203 R 

06251 R 040233 R 

06252 R 040232 R 



ISZ 

J MP 

TO BOOL 



LAC 
DAC 
OZM 

CLA 

DAC 

CALL 

SAD 

J^AP 

SAD 

jm 

CALL 

STL 

CALL 

SAD 

JNP 

DAC 

DZM 

DZ'V. 

DZM 

CALL 

SAD 

CALL 

SAD 

CALL 

SAD 

CALL 

SAD 

JMP 

LAC 

JMP 

LAC 

RCR 

SZL 

JN5P 

POPSTAC 

LAW 

CALL 

DAC 

DAC 

DAC 



BVAL 
XB00L3 



C400000 

8VAL 

BSUM 

BTERM 

OCHARI 

(47 

U'^JOT 

(50 

LPAREM 

SUBOPT 

EVAL 

(777777 

ITEXTl 

OUT 

BOOLL 

BOOLE 

BOOLG 

OCHAR 

(74 

BOOLL 

(75 

BOOLE 

(76 

BOOLG 

(51 

. + 3 

VAL 

REL2+1 

BVAL 



/UMARY NOT 



SNA 



K 



BQOLNM 

-4 

UNSAVE 
BOOL 
BTERM 
BSUM 



n^nnn 



/*12JAHi7* 
/*12JAH17=t^ 



/GET NEXT CHAR, 

/• 

/UMARY NOT. 

/ ( 

/SUBEXPRESSION. 

/DECRE'^ENT OPOINT. 

/SET TO ALLO^A' STR OR ^JM RESULT. 

/GO EVALUATE EXP OH THE LEFT 

/i^AS EXP AN SVE? 

/YES, GO PROCESS. 

/no, HOLD NUM RESULT. 



/GET CHAR, 

/< 

/PROCESS (<) OPERATOR. 

/ = 

/PROCESS (=) OPERATOR, 

/> 

/PROCESS (>) OPERATOR. 

/ ) 

/ YES, GO EVAL SUBSCR 

/MU^^BER Q'MLY, RETURN IT 



/TEST IF 400000 (MOT 400001,1, PR 0) 
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5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
51 6 3 
5164 
o i o5 
5165 
5167 
5168 
5169 
5170 
5171 
5172 
517i 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5191 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 



06253 R 040234 R 



DM 



BVAL 



/##### 



##### 



06254 


R 


140242 


R 




DZW 


8KC9AR 


06255 


R 


140215 


R 




oz.^ 


SUM 


06256 


R 


777777 


A 




LAW 


-1 


06257 


R 


040216 


R 




DAC 


TERM 


06260 


R 


104660 


R 




CALL 


OCHARi 


06261 


R 


200207 


R 




LAC 


\^AL 


06262 


R 


140207 


R 




DZM 


VAL 


06263 


R 


607332 


R 


/ 


JMP 


QPl 










/ 

/RELATION SETv^JEI 


EN STRING 


06264 


R 


200133 


R 


/ 
ITEXTl 


LAC 


8UPF2 


06265 


R 


040225 


R 




DAC 


POIMTl 


06266 


R 


213732 


R 




LAC 


CXCQl 


06267 


R 


040226 


R 




DAC 


PLACEl 


06270 


R 


140224 


R 




DZ^^ 


TEMPI 


06271 


R 


104645 


R 




CALL 


OCHAR 


06272 


R 


553764 


R 




SAD 


C72 


06273 


R 


606460 


R 




J^4P 


DEFIN 


06274 


R 


043174 


R 




DAC 


OUT 


06275 


R 


105363 


R 




CALL 


SVE 


06276 


R 


040227 


R 




DAC 


TEMP2 


06277 


R 


200017 


A 




LAC 


R17 


06300 


R 


040230 


R 




DAC 


POINT? 


06301 


R 


200016 


A 




LAC 


R16 


06302 


R 


040231 


R 




DAC 


PLACE2 


06303 


R 


203174 


R 




LAC 


OUT 


06304 


R 


553724 


R 




SAD 


C33 


06305 


R 


606452 


R 




JMP 


CONTAINS 


06306 


R 


553762 


R 




SAD 


(75 


06307 


R 


606423 


R 




JHP 


EQUAL 


06310 


R 


553751 


R 




SAD 


(35 


06311 


R 


606436 


R 




JMP 


FOLLOWS 


06312 


R 


000003 


A 


/ 


ERR3 












/ 

/RELATION BETWE' 


EH m.WKBl 


0631 3 


R 


J04660 


R 


/ 

XRELl 


CALL 


OCHARI 


06314 


R 


553761 


R 




SAD 


(74 


06315 


R 


100256 


R 




CALL 


BOOLL 


06316 


R 


553762 


R 




SAD 


(75 


06317 


R 


100260 


R 




CALL 


BOOLE 


06320 


R 


553763 


R 




SAD 


(76 


06321 


R 


100262 


R 




CALL 


800LG 


06322 


R 


104710 


R 




CALL 


SUBOPT 


06323 


R 


107163 


R 




CALL 


EVAL 


06324 


R 


652000 


A 




LMO 




06325 


R 


243174 


R 




XOR 


OUT 


06326 


R 


741210 


A 




SNAIPAL 




06327 


R 


606340 


R 




JMP 


REL2 



/SETUP VARIABLES FOR 
/RETUR^J TO EVAL. 



/INCREMENT OPOINT, IGNJ3RE CHAR 



/EXIT TO EVAL, 



/SETUP FOR CALLS TO CHARl: 

/ POIMTS TO STR AC!. 

/*12JAH14* CHAR 

/♦12JAH14* POS 

/ ENABLES EOM ESCAPE. 

/GET A CMNO CHAR, 

/: 

/ GO TO SYNTAX VERIFIER 

/SAVE CHAR. 

/FIND SVE I^ SY«4B TBL AND CHECK IT. 

/ENABLE EOM - OR (") - SSC FROM CHAR2 

/POINTS TO BEG. OF SVE. 
/*12JAH14* RESTORE 
/♦12JAH14* CHAR POS 

/LEFT BRACKET 

/PROCESS "CONTAINS" OPERATOR. 
/ = 

/PROCESS "STR EQUALS" OPERATOR. 
/RIGHT BRACKET 
/PROCESS "FOLLOl^fS" OPERATOR. 
/"SYNTX" 



/GET 

/< 

/PRO 

/ = 

/PRO 

/> 

/PRO 

/BAC 

/GO 

/SAV 



NEXT CHAR. 

CESS "LESS THAM" 

CESS "EQUAL" 

CESS "GREATER THAM" 
KUP OPOINT AND 
TO EVALUATOR. 

E RES IN MQ. 



/ LEFT=RIGHT 
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5206 


06330 


p 


641002 


A 




LACQ 






5207 


06331 


R 


740401 


A 




SML« 


CMA 




5209 


06332 


R 


303174 


R 




ADD 




OUT 


5209 


06333 


R 


740010 


A 




RAL 






5210 


06334 


R 


200256 


9 




LAC 




8Q0LL 


5211 


06335 


R 


744400 


k 




SNLi 


CLL 




5212 


06336 


R 


200262 


R 




LAC 




800LG 


5213 


06337 


R 


741000 


A 




SKP 






5214 


06340 


R 


200260 


R 


REL2 


LAC 




BOOLE 


5215 


06341 


R 


741200 


A 




SNA 






5216 


06342 


R 


751000 


A 


LOSE 


CLAi 


SKP 




5217 


06343 


R 


750030 


h 


WIN 


CLAl 


lAC 




5218 


06344 


R 


240234 


R 




XOR 




BVAL 


5219 


06345 


R 


513667 


R 




AMD 




(1 


5220 


06346 


R 


040234 


R 




DAC 




8VAL 


5221 


06347 


R 


104645 


R 




CALL 




QCHAR 


5222 


06350 


R 


553765 


R 




SAD 




(46 


5223 


06351 


R 


606363 


R 




Jf^P 




HAND 


5224 


06352 


R 


553766 


R 




SAD 




(41 


5225 


06353 


R 


60636? 


R 




JMP 




BOR 


5226 


06354 


R 


553653 


R 




SAD 




(40 


5227 


06355 


R 


606416 


R 




J(AP 




8E0M 


5228 


06356 


P 


553754 


R 




SAD 




(51 


5229 


06357 


R 


606416 


R 




JMP 




BEOM 


5230 


06360 


R 


553767 


R 




SAD 




(54 


5231 


06361 


R 


606416 


R 




JMP 




BEOM 


5232 


06362 


R 


000003 


A 




ERR3 






5233 










/ 








5234 










/HANDLE 


AND 


OPERATOR 


5235 










/ 








5236 


63 63 


R 


200234 


R 


BAND 


LAC 




3VAL 


5237 


06364 


R 


500233 


R 




AND 




BTERN 


5238 


06365 


R 


140234 


R 




DIM 




8VAL 


5239 


06366 


R 


606210 


R 




JMP 




X800L2 


5240 










/ 








5241 










/HANDLE 


OR OPERATOR 


5242 










/ 








5243 


06367 


R 


200234 


R 


BOR 


LAC 




BVAL 


5244 


06370 


R 


500233 


R 




AND 




BTERM 


5245 


06371 


R 


740200 


A 




SZA 






5246 


06372 


R 


040232 


R 




DAC 




BSUM 


5247 


06373 


R 


140234 


R 




DZM 




BVAL 


5248 


06374 


R 


606207 


R 




JMP 




XBOOLl 


5249 










/ 








5250 










/HANDLE 


SUBEXPP! 


SSSIGMS 


5251 










/ 








5252 










/»«### 


SAVE 


OM 


STACK. ###tt# 


5253 


06375 


R 


777774 


A 


LPAREN 


LAW 




-4 


5254 


06376 


R 


105040 


R 




CALL 




SAVE 


5255 


06377 


R 


200234 


R 




LAC 




BVAL 


5256 


06400 


R 


200232 


R 




LAC 




BSU^^ 


5257 


06401 


R 


200233 


R 




LAC 




BTER^I 



/iMUT EQUAL. 



/(LEFT EXP) > 
/(LEFT EXP) < 



(RIGHT EXP) 
(RIGHT EXP) 



/GET A C\ 


^AR. 




/& 






/PROCESS 


BOOLEAM 


AiSID 


/! 






/PROCESS 


BOOLEAN 


OR. 


/SPACE 






/ ) 






/. 






/"SYNTX" 
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5258 06402 R 206203 R LAC BOOL 

5259 /##### ##### /RECURSIVE CALL, FOR 

5260 06403 R 106203 R CALL BOOL /BOOLEAN SUBEXPRESSION. 
5251 06404 R 040234 R DAC 8VAL 

5262 /##### POPSTACK ##### 

5263 06405 R 777774 A LAW -4 

5264 06406 R 105103 R CALL UNSAVE 

5265 06407 R 046203 R DAC BOOL 

5266 06410 R 040233 R DAC 8rER^1 

5267 06411 R 040232 R DAC BSUN 

5268 06412 R 240234 R XOR BVAL /CARRY THROUGH BVAL FROM SUBEXP. 
526 9 /##### ##### 

5270 06413 R 040234 P DAC BVAL 

5271 06414 R 104660 R CALL OCHARI /INDEX OPOINT. 

5272 06415 R 606347 R JMP ^IN+4 

5273 / 

5274 /ALL DONE 'WITH BOOLEAM 

5275 / 

5276 06416 R 200234 R BEOM LAC BVAL 

5277 06417 R 500233 R AMD 8TERM 

5278 06420 R 741200 A SNA 

5279 06421 R 200232 R LAC &SU^ 
52B0 06422 R 626203 R J^9* BOOL 
5291 / 

52B2 /STRING EQUALS 

5 28 3 / 

5284 / (DOES STRl EQUAL STR2?) 

52fi5 / 

5286 06423 R 104770 R EQUAL CALL CHARl /GET CHAR FROM STRl 

5287 06424 R 606433 R J^IP EQUAL2 /Rl:EOiM FOU^D IM STRl. 

5288 06425 R 044770 R DAC CHARl /R2: SAVE CHAR, 

5289 06426 R 105014 R CALL CHAR2 /GET CHAR FROM STR2. 

5290 06427 R 606342 R J^9 LOSE /RltEOM OCCURS IN STR2 BEFORE STRl 

5291 06430 R 544770 R SAD CHARl /R2: STR2 CHAR = STRl CHAR? 

5292 06431 R 606423 R J^ EQUAL /YES, CONTINUE. 

5293 06432 R 606342 R jvip LOSE /MO, YOU LOSE. 

5294 06433 R 105014 R E0UAL2 CALL CHAR2 /GET ^^EXT CHAR IH STR2, 

5295 06434 R 606343 R J^P vilH /EON IS NEXT CHAR IN STR2 ALSO. 

5296 06435 R 606342 R JNP LOSE /EOM MOT NEXT IN STR2, YOU LOSE, 

5297 / 

5298 /STRING FOLLOWS 

5299 / 

5300 / CDOES STRl FnLLO'^ STR2 

5301 / 

5302 06436 R 104770 R FOLLOWS CALL CHARl 

5303 06437 R 606342 R JiMP LOSE 

5304 06440 R 044770 R DAC CHARl 

5305 06441 R 105014 R CALL CHAR2 

5306 06442 R 606343 R jwp vilH 

5307 06443 R 740001 A CNA 
5309 06444 R 304770 R ADD CHARl 
5309 06445 R 740101 A SMAiCMA 



n 6-i 


HT COLLATING SE3UEMCE?) 


/GET 


CHAR FROM STRl. 




/Rl: 


EOM IS LOSER. 




/R2: 


SAVE CHAR. 




/GET 


CHAR FROM STR2. 




/Rl: 


EOM IS i^IMNER, 




/R2: 






/CHAR1-CHAR2 
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5310 


06446 


R 


606343 


R 




JHP 


'^IN 


5311 


06447 


R 


740200 


A 




SZA 




5312 


06450 


R 


606342 


R 




jmP 


LOSE 


5313 


06451 


R 


606436 


R 




JMP " 


FOLLOWS 


5314 










/ 






5315 










/STRI^^iG 


CONTAINS 


5316 










/ 






5317 










/ 


(DOES 


STRl CHMTAIM 


531B 










/ 






5319 


06452 


R 


140207 


R 


CONTAIf\{ 


OZM 


VhL 


5320 


06453 


R 


106621 


R 




CALL 


CONT 


5321 


06454 


R 


200207 


R 




LAC 


VAL 


5322 


06455 


R 


740200 


A 




SZA 




5323 


0645b 


R 


606343 


Q 




JMP 


''^IN 


5324 


06457 


R 


606342 


R 




JNP 


LOSE 


5325 










/ 






5 32 6 










/SYMTAX 


VERIFIER (PATTERN 


5327 










/ 






5328 


06460 


R 


200222 


R 


DEFIN 


LAC 


OPOINT 


5329 


06461 


R 


040230 


R 




DAC 


P0INT2 


5330 


06462 


R 


200223 


R 




LAC 


OPLACF 


5 331 


06463 


R 


040231 


R 




DAC 


PLACE2 


5332 


06464 


R 


140227 


R 




DZM 


TEMP2 


5333 


06465 


R 


105014 


R 


DEFO 


CALL 


CHAR2 


5334 


06466 


R 


000003 


A 




ERR3 




5 335 


06467 


R 


103724 


R 




CALL 


SYNTAX 


5336 


06470 


R 


606570 


R 




JMP 


DEFIO 


5337 


06471 


R 


606522 


R 




J^iP 


0EF2 


5338 


06472 


R 


553755 


R 




SAD 


(42 


5339 


06473 


R 


606504 


R 




JNP 


DEFl 


5340 


06474 


R 


104770 


R 




CALL • 


CHARl 


5341 


06475 


R 


741000 


A 




SKP 




5342 


06476 


R 


606563 


R 




JMP 


0EF6 


5343 


06477 


R 


200230 


R 




LAC 


P0INT2 


5344 


06500 


R 


040222 


R 




DAC 


OPOIMT 


5345 


06501 


R 


200231 


R 




LAC 


PLACE2 


5346 


06502 


R 


040223 


R 




DAC 


OPLACE 


5347 


06503 


R 


606343 


R 




JMP 


WIM 


5349 


06504 


R 


105014 


R 


DEFl 


CALL 


CHAR2 


5349 


06505 


R 


00000 3 


A 




ERR3 




5350 


06506 


R 


553755 


R 




SAD 


(42 


5351 


06507 


R 


606465 


R 




JMP 


DEFO 


5352 


06510 


R 


045014 


R 




DAC 


CHAR2 


5353 


06511 


R 


104770 


R 




CALL 


CHARl 


5354 


06512 


R 


606515 


R 




JMP 


DEF3 


5355 


06513 


R 


545014 


R 




SAD 


CHAR2 


5356 


06514 


R 


606504 


R 




JMP 


DEFl 


5357 










/ 






5358 










/INDEX 


P0INT2 


PAST CLOSIi^G 


5359 










/ 






5360 


06515 


R 


105014 


R 


DEF3 


CALL 


CHAR2 


5361 


06516 


R 


000003 


A 




ERR3 





/CHARl FOLLOWS, YOU wIM. 
/CHAR1=CHAR2? 
/NO, YOU LOSE, 
/YES, COMTIMUE. 



STR2?) 



/SETUP TO START SEARCH AT 3EG. OF STRl 
/RE-ENTRAMT SlIBR. FOR "COMTAI^iS" 



/FOUND. 
/HOT FOUND, 



/SETUP POIiMTER FOR CHAR2 

/*12JAH14* SET UP 

/'»'12JAH14* CHAR POS 

/SETUP EOM RETURN FRD^ CHAR2. 

/GET A PATTERN! CHAR. 

/"SYf«TX" - EOM 

/TEST CHAR TYPE. 

/A 

/H 

/P - IS IT A " 

/YES, GO PROCESS. 

/NO, GET A CHAR FROM THE SVE, 

/EOM, END OF SVE • /^IM 

/SETUP FOR LOSE. 

/SETUP FOR 'fim, 
/=*=12JAH14* SET UP 
/*12JAH141= CHAR POS 

/GET A PATTERN CHAR. 

/"SYMTX" - EOM 

/IS IT AMOTHER " 

/YES, FINISHED LITERAL MATCH. 

/NO, SAVE THE CHAR. 

/GET A CHAR FROM SVE. 

/EOM. 

/SAME AS LITERAL CHAR? 

/YES, CONTINUE. 



/GET A PATTERN CHAR. 
/"SYNTX" - EOM 
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N LIMPS 


100 




536? 


06517 


R 


553755 


R 


5363 


06520 


R 


606554 


R 


5364 


06521 


K 


606515 


R 


5365 










5366 










5367 










5368 


06522 


R 


513743 


R 


5369 


06523 


R 


740001 


A 


5370 


06524 


R 


044645 


R 


5371 


06525 


R 


105014 


R 


5372 


06526 


R 


000003 


A 


5373 


06527 


R 


103724 


R 


5374 


06530 


R 


606533 


R 


5375 


06531 


R 


000003 


A 


5376 


06532 


R 


000003 


A 


5377 


06533 


R 


045014 


R 


5378 


06534 


R 


444645 


R 


5379 


06535 


R 


741000 


A 


5380 


06536 


R 


606465 


R 


5381 


06537 


R 


104770 


R 


5382 


06540 


P 


606554 


R 


5383 


06541 


R 


103724 


R 


5384 


06542 


R 


606550 


R 


5385 


06543 


R 


606546 


R 


5386 


06544 


R 


760020 


A 


5 3 R 7 


06545 


R 


606551 


R 


538R 


06546 


R 


760016 


A 


5 3 8 9 


06547 


R 


606551 


R 


5390 


06550 


R 


760001 


A 


5391 


06551 


R 


505014 


R 


5392 


06552 


R 


740200 


A 


5 39 3 


06553 


R 


606534 


R 


5394 










5395 










5396 










5397 










5398 


06554 


R 


105014 


R 


5399 


06555 


R 


000003 


A 


5400 


06556 


R 


103724 


R 


5401 


06557 


R 


606554 


R 


5402 


06560 


R 


606554 


R 


540 3 


06561 


R 


553755 


R 


5404 


06562 


R 


606515 


R 


5405 


06563 


R 


200230 


R 


5406 


06564 


R 


040222 


R 


5407 


06565 


R 


200231 


R 


5409 


06566 


R 


040223 


R 


5409 


06567 


R 


606342 


R 


5410 










541 1 










5412 










5413 


06570 


R 


45014 


R 



/IS 


IT 


A " 


/YES 


i • 




/NO 






yPE 


INDICATED. 


/MINUS 


PATTER-N 



/YES, 


, GET NEXT TYPE. 


/NO. 


GET CHAR FRQtA SVE, 


/Rl: 


EOM IN sve. 


/R2: 


TEST CHAR TYPE, 


/A - 


01 MASK 


/n - 


16 MASK 


/p - 


20 ^ASK 



SUBROUTINES FOR INTERPRETER 

SAD (42 

JMP 0EF5 

JMP DEP3 
/ 

/PASS SPECIFIED NO OF CHARS OP 
/ 

DEF2 AND (17 

CNA /MINUS PATTER-N REPEAT CDU'MT, 

OAC OCHAR 

CALL CHAR2 /GET A PATTERN CHAR. 

ERR3 /"SYMTX" - EOH 

CALL SYNTAX /IS MEXT CHAR NUMERIC ALSO? (-^JOT ALLOWIM! 

JMP DEF21 />! DIGIT SPECIFICATIOM ) MO--ALPHA--OK 

ERR3 /MUHERIC--SYNTX 

ERR3 /PUMCTUATION--SYNTX 

DEF21 DAC CHAR2 /SAVE PATT VERIF CODE 

DEF4 ISZ OCHAR /FIMISHED WITH THIS PATTERN TYPE? 

SKP 

JMP DEFO 

CALL CHARl 

JHP DEF5 

CALL SYNTAX 

JMP ,f6 

J.MP . + 3 

LA^ 20 

JMP .+4 

LAW 16 

JNP ,+2 

LAs^>l 01 

AND CHAR2 /MASK PATTERN TYPE SPECIFICATION. 

SZA /FAIL IF ZERO. 

JMP DEF4 /PASS, CO^]TI^IUE. 
/ 

/INDEX P0I^>T2 TO FIRST PUNCT THAT IS 'MOT (") OR v^ITHIN (") 
/(THERE MAY BE A (i) i^ITH A^JOTHER PATTERN r^ATCH) 
/ 

DEF5 CALL CHAR2 /GET A PATTERN CHAR, 

ERR3 /"SYI^TX" - EOM 

CALL SYNTAX /TEST CHAR TYPE. 

JMP 0EF5 /A 

JMP DEF5 /n 

SAD (42 /P - IS IT A " 

JHP 0EF3 /YES. 

DEF6 LAC P0INT2 

DAC OPOIWT /SETUP FOR LOSE. 

LAC PLACE2 /*12JAH14=«' SET UP 

DAC OPLACE /*12JAH14* CHAR POS 

JMP LOSE 
/ 

/PASS UNSPECIFIED NO. OF CHARS. OF TYPE IWDICATED. 
/ 

DEFlO DAC CHAR2 /SAVE PATTERM CHAR. 
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SUBI^OUTI^Nies FOR INTERPRETER 



5414 


06571 


R 


104770 


R 


5415 


06572 


R 


606606 


R 


5416 


06573 


R 


103724 


R 


5417 


06574 


R 


606602 


R 


5418 


06575 


R 


606600 


R 


5419 


06576 


R 


760020 


A 


5420 


06577 


R 


606603 


R 


5421 


06600 


R 


760016 


A 


5422 


06601 


R 


606603 


R 


5423 


06602 


R 


760001 


h 


5424 


06603 


R 


505014 


R 


5425 


06604 


R 


740200 


A 


5426 


06605 


R 


606571 


R 


5427 


06606 


R 


777777 


A 


542B 


06607 


R 


340226 


R 


5429 


06610 


R 


553750 


R 


5430 


06611 


R 


606613 


R 


5431 


06612 


R 


606617 


R 


5432 


06613 


R 


777777 


A 


543 3 


06614 


R 


340225 


R 


5434 


06615 


R 


040225 


R 


5435 


06616 


R 


213736 


R 


5436 


06617 


R 


040226 


R 


5437 


06620 


R 


606465 


R 


5438 











DEF12 



ALL 



CHARl 



DEFll 



DEFllA 



DEFllB 



JN-lp 


DEFll 


CALL 


SYNTAX 


JNiP 


,+6 


JMP 


. + 3 


LAW 


20 


JMP 


.+4 


LAW 


16 


JMP 


• t2 


LAW 


01 


AND 


CHAR2 


SZA 




JMP 


DEF12 


hh^ 


-1 


TAD 


PLACFl 


SAD 


(XCOl-1 


JMP 


DEFllA 


JNP 


OEFliB 


LA!^' 


-1 


TAD 


POINTl 


OAC 


PQINTl 


LAC 


(XC03 


DAC 


PLACEl 


JMP 


DEFO 



/*12JAH12* GET CHAR FR3M S¥E 

/Rl? EDH IN SVE 

/R2; TEST CHAR TYPE 

/ALPHA - 01 MASK 

/MUM - 16 NASK 

/PUMCT - 20 MASK 



/MASK PATTERN TYPE 

/FAIL IF ZERO. 

/*12JAH12* PASS, CONTINUE 

STEP BACK 

ONE CHAR 

OUT OF CURREf^T 

YES 

MO 

MOVE PTR 

WORD BACK DMS 



/*12JAH14* 
/*12JAH14^ 
/=^12JAH14* 
/=^12JAH14* 

/*12JAHi4=t= 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 



SPSCIFICATIOM. 

(NO COUNT) 

vv'ORD? 



POI^JT TO 
SAVE POS 



P3S 3 



/PATTERN SPEC FOLLOyvfS. 



.EJECT 



PAQFJ 145 MU^ipS 100 SUa^OUTIMES FOR INTERPRETER 

5439 /XCONT - CONTAI^JS SUBROUTINE 

5440 / 

5441 / CIS STR2 COMTAIMED WITHIN STRl?) 

5442 / (USED BY $F AND "CONTAINS OPERATOR" PR0CESSIM3) 

5443 / 

5444 / 

5445 06621 R 000000 A COMT /*12JAH17* 

5446 06622 R 200230 R LAC P0INT2 /*12JAH17* 

5447 06623 R 045040 R DAC SAVE /POINTS TO 6EG. OP SrR2. 
544B 06624 R 200231 R LAC PLACE2 /=i=t2JAH14* SAVE CHAR 

5449 06625 R 040272 R DAC GLOBAL /*12JAH14* POS 

5450 06626 R 440207 R ISZ VAL 

5451 06627 R 105014 R COMTl CALL CHAR2 /GET CHAR PROM STR2. 

5452 06630 R 626621 R JMP1= CONT /R1 : END OF STR2 

5453 06631 R 045014 R OAC CHAR2 /R2: SAVE STR2 CHAR. 

5454 06632 R 104770 R C0NT2 CALL CHARl /GET CHAR FROM STRl. 

5455 06633 R 606671 R JMP C0WT4 /Rl: E!^D OP STRl - LOSS, 

5456 06634 R 440207 R ISZ VAL /R2; 

5457 06635 R 545014 R SAD CHAR2 /STRl CHAR = STR2 CHAR? 

5458 06636 R 741000 A SKP 

5459 06637 R 606632 R JMP C0NT2 /MO, KEEP LOOKING, 

5460 06640 R 2.00225 R LAC POINTl /YES. 

5461 06641 R 045103 R DAC UMSAVE 

5462 06642 R 200226 R LAC PLACEl /*12JAH141= SAVE CHAR 

5463 06643 R 040270 R DAC GSYH /tl2JAH14* POS 

5464 06644 R 200207 R LAC VAL 

5465 06645 R 045201 R DAC CHECK 

5466 06646 R 105014 R C0WT3 CALL CHAR2 /GET CHAR FROM STR2 

5467 06547 R 626621 R JMP* CQNT /Rl: EMD OF STR2 -WI^I 
546B 06550 R 045014 R OAC CHAR2 /R2: SAVE STR2 CHAR 

5469 06651 R 104770 R CALL CHARl /GET CHAR FROM STRl 

5470 06652 R 606671 R JHP CnNT4 /Rl : EMD OF STRl -LOS€. 

5471 06653 R 440207 R ISZ VAL /R2: 

5472 06654 R 545014 R SAO CHAR2 /STRl CHAR = STR2 CHAR? 

5473 06655 R 606646 R JMP C0NT3 /YES, KEEP LOOKING, 

5474 06656 R 205201 R LAC CHECK /MO. 

5475 06657 R 040207 R DAC VAL 

5476 06660 R 200270 R LAC GSYM /*12JAH14* RESOTRE 

5477 06661 R 040226 R DAC PLACEl /'^laJAHU* CHAR 
547R 06662 R 200272 R LAC GLOBAL /*12JAH14'I' POSITION 

5479 06663 R 040231 R DAC PLACE2 /*12JAH14=S' INDICATORS 

5480 06664 R 205103 R LAC UMSAVE /RESTORE POINTERS. 

5481 06665 R 040225 R DAC POINTl 

5482 06666 R 205040 R LAC SAVE 

5483 06667 R 040230 R DAC P0INT2 

5484 06670 R 606627 R JWP CONTl /START LOOKING AGAIN, 
54R5 06671 R 140207 R C0WT4 DZM VAL 

54B6 06672 R 626621 R JMp* CO-^T /LOSE EXIT. 
5487 .EJECT 
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5488 /FORMAT SUBROUTINE 

5489 / 

5490 /SETTIWG OF LINK AT EXIT: LIMK SET = ' FORMAT 

5491 / LI^]K CLEAR = OTHER 

5492 / 

5493 06673 R 000000 A FORMAT /=^12JAH17* 

5494 06674 R 104660 R XFORMAT CALL QCHART 

5495 06675 R 744002 A XFO STL 

5496 06676 R 553766 R SAD (41 /! 

5497 06677 R 606763 R JMP LINE 

5498 06700 R 553755 R SAD (42 /" 

5499 06701 R 606747 R J?'1P QUOTE 

5500 06702 R 553770 R SAD (43 /« 

5501 06703 R 606764 R JHP PAGE 

5502 06704 R 553702 R SAD (77 /? 

5503 06705 R 606713 R JMP QUEST 

5504 06706 R 553760 R SAD (47 /• 

5505 06707 R 626673 R JMP* F0R^4AT 

5506 06710 R 104710 R XFl CALL SUBOPT 

5507 06711 R 744000 A CLL 

550fi 06712 R 626673 R JNP4= FORMAT 

5509 /QUESTION MARK AS TABRlf^JG HECHAMISH 

5510 06713 R 744000 A QUEST CLL 

5511 06714 R 107163 R CALL EVAL 

5512 06715 R 741100 A SPA 

5513 06716 R 000005 A ERRS /"MIMUS" 

5514 06717 R 220150 R LAC=t' XVAR 

5515 06720 R 740031 A TCA 

5516 06721 R 360141 R TAD* MVAR /%M-$X 

5517 06722 R 740100 A SMA 

5518 06723 R 741000 A SKP /USE VAL-%N 

5519 06724 R 606727 R JHP ,+3 /USE VAL-SX 

5520 06725 R 220141 R LACS' NVAR 

5521 06726 R 741000 A SKP 

5522 06727 R 220150 R LAC'J' XVAR 

5523 06730 R 740031 A TCA 

5524 06731 R 340207 R TAD VAL 

5525 06732 R 744000 A CLL 

5526 06733 R 657323 A IDIVS; 144 
06734 R 000144 A 

5527 06735 R 641002 A LACQ 

5528 06736 R 740031 A TCA 

5529 06737 R 740100 A SNA 

5530 06740 R 606777 R JwiP NEXT /MO ACTION NECESSARY 

5531 06741 R 040207 R DAC VAL 

5532 06742 R 760040 A LAW 40 /SPACE 

5533 06743 P 103174 R CALL OUT 

5534 06744 R 440207 R ISZ VAL 

5535 06745 R 606742 R JMP .-3 

5536 06746 R 606777 R JMP NEXT 

5537 /FREE TEXT 

5538 06747 R 104660 R QUOTE CALL OCHARI 
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SUBRGUTIf^ES FOR P-JTERPRETER 



5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
556! 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
557? 
5573 
5574 
5575 
5576 
5577 
5579 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 



06750 


R 


741200 


A 




SNA 






06751 


R 


000003 


A 




ERR 3 






06752 


R 


553755 


R 




SAD 


(42 




06753 


R 


606756 


R 




JM.P 


QUOTEl 




06754 


R 


103174 


R 




CALL 


OUT 




06755 


R 


606747 


R 


/ 

QUOTEl 


JMP 


QUOTE 




06756 


R 


104660 


R 


CALL 


OCHART 




06757 


R 


744000 


A 




CLL 






06760 


R 


553742 


R 




SAD 


(56 




06761 


R 


626673 


R 




JNP=*' 


FORMAT 




06762 


R 


607000 


R 


/ 

/LIME 


JMP 


^EXT4-1 












FEED AND 


PAGE FEED 




06763 


R 


751000 


A 


LINE 


CLA'SKP 






06764 


R 


760034 


A 


PAGE 


LAW 


34 




06765 


R 


103174 


R 




CALL 


OUT 




06766 


R 


104660 


R 




CALL 


QCHARI 




06767 


R 


607000 


R 




JMP 


MEXT+1 












/PUT AHkY THE VARIABLE 




06770 


R 


200204 


R 


F0RM2 


LAC 


SYMS 




06771 


R 


040177 


R 




DAC 


SYN 




06772 


R 


200205 


R 




LAC 


SCRIPS 




06773 


R 


040200 


R 




DAC 
.IFPMZ 


SCRIP 

FMONEY 




06774 


R 


140211 


R 




DZH 
• ENDC 


\rALF 




06775 


R 


754002 


A 




STLiCLA 






06776 


R 


105434 


R 




CALL 


SYMBOL 




06777 


R 


104645 


R 


NEXT 


CALL 


OCHAR 




07000 


R 


553767 


R 




SAD 


(54 




07001 


R 


606674 


R 




JMP 


XFORMAT 




07002 


R 


553653 


R 




SAD 


(40 




07003 


R 


607010 


R 




JMP 


i^EXT2 




07004 


R 


553733 


R 




SAD 


(73 




07005 


R 


607010 


R 




JMP 


'MEXT2 




07006 


R 


740200 


A 




SZA 






07007 


R 


606675 


R 




JHP 


XFO 




07010 


R 


652000 


A 


NEXT2 


LMO 






07011 


R 


200162 


R 


'^EXTl 


LAC 


PRNCDV 




07012 


R 


040020 


A 




DAC 


R20 




07013 


R 


353771 


R 




TAD 


(JMP OUTTAB- 


•I 


07014 


R 


040164 


R 




DAC 


OUTPUT 




07015 


R 


353772 


R 




TAD 


(OEV 




07016 


R 


040163 


R 




DAC 


INPUT 




07017 


R 


641002 


A 




LACQ 






07020 


R 


603574 


R 


/ 

TSTR 


JMP 


DTABLE-H 




07021 


R 


000000 


A 









07022 


R 


200017 


A 




LAC 


R17 




07023 


R 


740030 


A 




lAC 






07024 


R 


040225 


R 




DAC 


PQINTl 





/"SYMTX" 

/CLOSING QUOTE? 



/. 



/*12JAH6* 

/INHIBIT TYPE-OUT OF F,?. VAR *12JAH6* 

/=*=12JAH6* 

/ PUT 

/IF A COMMA, GET MEXT CHAR 
/AND CHECK IT FOR FOR^^AT CTL 
/SPACE, END OF COMNAHD 

/? END OF CO^^MAND 

/EOH, SMD OF CO^^MAND 

/RESTORE 10 TO PRINCIPLE DEVICE 



/TYPE STRING VARIABLE 

/ SET UP CHARACTER POIMTER 



/=<=12JAH17* 
/*12JAH17'*' 
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5591 


07025 


R 


213732 


R 


LAC 


(XCOl 


5592 


07026 


R 


040226 


R 


DAC 


PLACEl 


5593 


7 2 7 


R 


140224 


R 


DZM 


TEMPI 


5594 


07030 


R 


104770 


R 


XSTRl CALL 


CHARl 


5595 


07031 


^ 


607034 


R 


J!*^1P 


KTSTR2 


5596 


07032 


R 


103174 


R 


CALL 


OUT 


5597 


070.33 


R 


607030 


R 


JIWP 


XSTRl 


5598 


07034 


R 


220017 


A 


XTSTR2 LAC* 


R17 


5599 


07035 


R 


653606 


A 


LMQiCLAClLLS+6 


5600 


07036 


R 


300017 


A 


ADD 


R17 


5601 


07037 


R 


040017 


A 


DAC 


R17 


5602 


07040 


R 


627021 


R 


JMP* 


TSTR 


5603 










/SUBROUTIME TO 


PRIMT PARTS 


5604 


07041 


R 


000000 


A 


NRPART 




5605 


07042 


R 


760000 


A 


XK'RPART LAW 


00 


5606 


07043 


R 


103174 


R 


CALL 


OUT 


5607 


07044 


R 


200016 


A 


LAC 


R16 


5603 


07045 


R 


045151 


R 


DAC 


PART 


5609 


07046 


R 


225151 


R 


LAC* 


PART 


5610 


07047 


R 


107066 


R 


CALL 


^RSTEP 


5611 


07050 


R 


220016 


A 


LAC* 


R16 


5612 


07051 


R 


653606 


A 


LMQ»CLACiLLS+6 


5613 


07052 


R 


300016 


A 


ADD 


R16 


5614 


07053 


R 


540167 


R 


SAD 


EfN?0 


5615 


07054 


R 


613453 


R 


JMP 


WRITE4 /I 


5 616 


07055 


R 


040016 


A 


DAC 


R16 


5617 


07056 


R 


220016 


A 


LAC* 


R16 


5618 


07057 


H 


653323 


A 


lOIV? 


144 




07060 


R 


000144 


A 






5619 


07061 


R 


641002 


A 


LACQ 




5620 


07062 


R 


540207 


R 


SAD 


VAL 


5621 


07063 


R 


607044 


R 


JMP 


X^RPART+2 


5522 


07064 


R 


040207 


R 


DAC 


VAL 


562 3 


07065 


R 


627041 


R 


JMp* 


wrpart 


5624 










/SUBROUTINE TO 


PRINT STEPS 


5625 


07066 


R 


000000 


A 


WRSTEP 




5626 


07067 


R 


104255 


R 


CALL 


DECOUT 


5627 


07070 


R 


760040 


A 


LAW 


40 


5628 


07071 


R 


103174 


R 


CALf* 


OUT 


5629 


07072 


R 


200016 


A 


LAC 


Rt6 


5630 


07073 


R 


740030 


A 


lAC 




5631 


07074 


R 


040230 


R 


DAC 


P0IMT2 


5632 


07075 


R 


213732 


R 


LAC 


CXCQl 


5633 


07076 


R 


040231 


R 


DAC 


PLACE2 


5634 


07077 


R 


140227 


R 


DZM 


TEMP2 


5635 


07100 


R 


105014 


R 


CALL 


CHAR2 


5636 


07101 


R 


607104 


R 


JMP 


.^^ 


5637 


07102 


R 


103174 


R 


CALL 


OUT 


5638 


07103 


R 


607100 


R 


J.MP 


.-3 


5639 


07104 


R 


760000 


A 


LAW 


00 


5640 


07105 


R 


103174 


R 


CALL 


OUT 


5641 


07106 


R 


627066 


R 


JMP* 


WRSTEP 



/*12JAH14* INIT 
/*12JAH14* CHAR POS 
/ TERMINATOR FOR STRING 
/*12JAH12* GET A CHARACTER 
/*12JAH12* Rl: TERMINiATOR 
/ R2: TYPE CHARACTER IN AC 
./*12JAH12* 
/*12JAH12* GET OFFSET 

/ POINTING TO f^EXT VARIABLE 



/*12JAH17* 



ASE OF WRITE ALL 



/*12JAH17* 
/*12JAH17* 



/*12JAH14* INIT 
/*12JAH14* CHAR POS PTR 



PkGF. 149 



MUMPS 100 



SUBROUTINES FOR INTERPRETER 



5642 










5643 


07107 


R 


000000 


A 


5644 










5645 










5646 


07110 


R 


207107 


R 


5647 


07111 


R 


741400 


A 


564R 


07112 


R 


253662 


R 


5649 


07113 


R 


047107 


R 


5650 










5651 


07114 


R 


220143 


R 


5652 


07115 


R 


745100 


A 


5653 


07116 


R 


000005 


A 


5654 


07117 


R 


653323 


A 




07120 


R 


000144 


A 


5655 


07121 


R 


641002 


A 


5656 


07122 


R 


353773 


R 


5657 


07123 


R 


744100 


A 


565B 


07124 


R 


000006 


A 


5659 


07125 


R 


641002 


A 


5660 


07126 


R 


741200 


A 


5661 


07127 


R 


200162 


R 


5662 


07130 


R 


040020 


A 


5663 


07131 


R 


313771 


R 


5664 


07132 


R 


040164 


R 


5665 


07133 


R 


313772 


P 


5666 


07134 


R 


040163 


R 


5667 


07135 


R 


353774 


R 


5668 


07136 


R 


353775 


R 


5669 


07137 


R 


043174 


R 


567 


07140 


R 


223174 


R 


5671 


7141 


R 


540654 


R 


5672 


07142 


R 


607160 


R 


5673 


07143 


R 


200020 


A 


5674 


07144 


R 


540162 


R 


5675 


07145 


R 


741000 


A 


5676 


07146 


R 


000031 


A 


5677 


07147 


R 


741000 


A 


567B 


07150 


R 


101533 


R 


5679 


07151 


R 


705522 


A 


5690 


07152 


R 


223174 


R 


5681 


07153 


R 


740200 


A 


5682 


07154 


R 


607150 


R 


5683 


07155 


R 


200654 


R 


56B4 


07156 


R 


063174 


R 


5685 


07157 


R 


705521 


A 


5696 


07160 


R 


207107 


R 


56«7 


07161 


R 


740010 


A 


56BR 


07162 


R 


627107 


R 



/SUaROUTINE TO SET Up I-O DEVICES 



SETIO 




.OCT 



XSETO 



XSETOl 



XSETl 



.IFPNZ 


XVM 


LAC 


SETIO 


SZL 




XOR 


(400000 


DAC 


SETIO 


.EMDC 




lAC^ 


XVAR 


SPA'CLL 




ERRS 




IDIV? 


144 


LACQ 




TAD 


C-DEV-1 


S^'AlCLb 




ERR6 




LACQ 




SNA 




LAC 


PRIVJCDV 


DAC 


R20 


ADD 


iJH? OUTTAB-1 


DAC 


OUTPUT 


ADD 


CDEV 


OAC 


INPUT 


TAD 


C'JMp-IMTAB 


TAD 


(H'H0TA8 + 1 


DAC 


OUT 


LAC* 


OUT 


SAD 


PRTNMR 


JMP 


XSETl 


LAC 


R20 


SAD 


PRs^CDV 


SKP 




ERR31 




SKP 




JN!S 


HANG 


1^»T0FF 




LAC* 


OUT 


SZA 




JNP 


XSETOl 


LAC 


PRTNMR 


DAC* 


GUT 


IMTOM 




LAC 


SETIO 


RAL 




jwp* 


SETin 



/SET UP LINK 
/STATUS IN 
/BIT OF 
/RETURM ADOR S«?ORO 

/IS %I NEG? 
/IS %I NEG? 
/YES, "MINUS" 



/*12JAH17* 
/*12JAH17* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 
/*12JAH15* 



/IS DEVICE NUMBER TOO LARGE? 

/YES, "MAXIM" 

/MO. 

/%I = PRINCIPAL I/O DEVICE? 

/YES 

/SETUP DEVICE 'MO. 

/STORE "JMP OUTTAB+DEV" FOR OUTPUT, 

/STORE "JMP IMTAB+DEV" FOR IMPUT, 



/GET O^MER FOR THIS DEVICE 

/OURS? 

/YESiM 

/PRINCIPAL DEVICE? 
/YES--TRY TO LOCK TO IT 
/N0--"IOLOK" 

/WAIT FOR PRINCIPAL DEVICE 



/DEVICE AVAILABLE? 
/NO--WAIT 
/YeS--TAKE IT 



/RESTORE LIMK AND 
/RETURN'. 



PAGK 150 



^UMPS 1.00 



EVi^LUATOR 



5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5 70 3 
5704 
5705 
5706 
5707 
570B 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5 716 
5717 
5718 
5719 
5720 
5 7 21 
5722 
5723 
5724 
5725 
5726 
5727 
5729 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 



07163 R 000000 A 



.TITLE SVALIJATOR 
/EVALUATOR FOR WU^IERIC AND STRING EXPRESSIO^JS 
/SET bINK ALLOWS NUMERIC OR STRING RESULT. 
/CLEAR LINK ALLOi^'S ONLY t^U^^ERIC RESULT. 
/ 
EVAL 

.IFPWZ ."10000 
4!**ERR0R-SiAiAPPING IMAGE RETURN ADDRESSES MUST BE RELOCATED 
=l''f=*8EL0w 10000 AS IM GLOBAL, GSYM, ETC. 

.END 



/DOW'T ALLOW P.P. ARGUMENTS 













.EMDC 














.IFPf^Z 


FmUEY 


07164 


R 


140211 


R 




,ENDC 


VALF 


07165 


R 


754400 


A 




SNLJCLL 


iCLA 


07166 


R 


607174 


R 




JMP 


EVALO 


07167 


R 


213730 


P 




LAC 


CKCIl 


07170 


R 


040221 


R 




DAC 


IPLACE 


07171 


R 


200133 


P 




LAC 


ByFF2 


07172 


R 


040220 


R 




DAC 


I POINT 


07173 


R 


723030 


A 




AAC 


STRACC-1 


07174 


R 


040202 


R 


EVALO 


DAC 


TEMP 


07175 


R 


140215 


R 




DZM 


SUM 


07176 


P 


751000 


A 


PLUS 


CLAISKP 




07177 


R 


213663 


R 


MINUS 


LAC 


(200000 


07200 


R 


040242 


R 




DAC 


BKCHAP 


07201 


R 


777777 


A 




LAW 


-1 


07202 


R 


040216 


R 




DAC 


TER?^ 


07203 


R 


140207 


R 


SCAM 


DZM 


¥AL 


07204 


R 


104660 


R 


SCANOO 


CALL 


OCHARX 


07205 


R 


553776 


R 




SAD 


(55 


07206 


R 


607231 


R 




JMP 


U-vlINOS 


07207 


R 


553777 


R 




SAO 


(53 


07210 


R 


607233 


R 




JMP 


UPLUS 


07211 


R 


103724 


R 


SCANl 


CALL 


SYNTAX 


07212 


R 


607261 


R 




JMP 


LETTER 


07213 


R 


607306 


R 




JI^P 


DIGIT 


07214 


R 


553753 


R 




SAD 


(50 


07215 


R 


607453 


R 




JMP 


SUREXP 


07216 


R 


554000 


R 




SAD 


(44 


07217 


R 


607236 


R 




JNP 


DOLLAR 


07220 


R 


553752 


R 




SAD 


(45 


07221 


R 


607260 


R 




JMP 


PERCENT 


07222 


R 


553755 


R 




SAD 


(42 


07223 


R 


607432 


R 




JI^P 


STRO 


07224 


R 


554001 


R 




SAD 


(36 


07225 


R 


610065 


R 




JMP 


GGET 


07226 


R 


553742 


R 




SAD 


(56 


07227 


R 


607306 


R 




JMP 


DIGIT 


07230 


R 


000003 


A 




ERR3 





/'*=12JAH17'«^ 
/*12JAH17* 



/*12JAH17=*= 



/MUMERIC RESULT ONLY? 

/YES 

/*12JAH14* INIT 

/*12JAH14* CHAR POS PTR 

/HO 

/SET UP BUFFER POINTER FOR STORING 

/POSSIBLE STRING 

/SET=0 FOR NUM ONLY?ELSE BUFF2f STRACC'1+400000 

/ 000000 FOR + 
/ 200000 FOR - 
/SET "SIGf'J" BIT (1) FOR TERM EVALUATION 

/-I INDICATES 1= OR / NOT ENCOUNTERED. 

/*12JAH12* GET NEXT CHAR 

/* 

/UNARY NINUS 

/t 

/UNARY PLUS 

/TEST CHAR TYPE. 

/A 

/N 

/( 

/SUBEXPRESSION 

/$ 

/FUNCTION OR SYST VARIABLE. 

/% 

/SYST VARIABLE. 

/" 

/TEXT LITERAL. 

/^ 

/GLOBAL VARIABLE, 

/. 

/"SYNTX" 



Pi^GS tSl !v^ifi^1PS 100 EVALUATOR 

5741 /UMARY PLUS OR Mll^iUS 

5742 / 

5743 07231 R 111111 A U^INUS LAW -1 

5744 07232 R 040207 R DAC VAL 

5745 07233 R 140202 R UPLUS OZM TEMP 

5746 07234 R 104660 R CALL QCHARI /GET NEXT CHAR. AND 

5747 07235 P 607211 R JMP SCANl /C0^JT1^JUE EVALUATION. 
574B /DOLLAR SIGM. EITHER FU^^ICTIOiM OR SYSTE^i VARIABLE 

5749 / 

5750 07236 R 104660 R DOLLAR CALL OCHARI /GET NEXT CHAR, 

5751 07237 R 103724 R CALL SYMTAX /MUST 8E ALPHABETIC 

5752 07240 R 607243 R JHP .+3 /A 

5753 07241 R 000003 A ERR3 /"SYNTX" 

5754 07242 R 000003 A ERR3 /"SYNTX" 

5755 07243 R 214002 R LAC (1600 /DOLLAR (TRANSFORMED) SHIFTED BY 5 LEFT 

5756 07244 R 640002 A OHQ /SYNTAX DOES L.^0 

5757 07245 R 040177 R DAC SYN 

5758 0724b R 104660 R CALL OCHARI /GET REMAIt>JING CHARS IW SNAME, 

5759 07247 R 040217 R DAC ACTENP /*12JAH13=«^ SAVE 2ND CHAR OF FCN '^JAME 

5760 07250 R 741000 A SKP /*12JAH13* (IN CASE $J) 

5761 07251 R 104660 R CALL OCHARI /*12JAH13* GET ^ORE CHARS I'M FCN WA*4E 

5762 07252 R 103724 R CALL SYMTAX /CHECKING FOR ALPHA'S, 

5763 07253 R 607251 R JNP ,-2 /A 

5764 07254 R 000003 A ERR3 /N- "SYNTX" 

5765 07255 R 553753 R SAD (50 /PUNCT, IS IT ( 

5766 07256 R 634075 E JMP* FUNCT /YES, CONTINUE PROCESSING FUNCTION, 

5767 07257 R 607272 R JMP LETT2 /NO, POSSIBLY SYSTEM VARIABLE. 
576B / 

5769 /PERCENT, TRANSFORM TO CODE 35 

5770 / 

5771 07260 R 213751 R PERCENT LAC (35 /BRACKET 

5772 / 

5773 /ALPHABETIC CHARACTERS 

5774 / 

5775 07261 R 040177 R LETTER DAC SYM 

5776 07262 R 777775 A LA^^ -3 

5777 07263 R 040214 R LETTO DAC M /*12JAH12* 

5778 07264 R 104660 R LETT3 CALL OCHARI /*12JAH12* GET NEXT CHAR. 

5779 07265 R 103724 R CALL SYNTAX /TEST CHAR TYPE. 
57R0 07266 R 607274 R JMP LETT! /A 

5781 07267 R 000003 A ERR3 /N- "SYNTX" 

5782 07270 R 553753 R SAO (50 /PUNCT, IS IT ( 

5783 07271 R 607467 R JMP SUBSCR /YES, LOOK FOR SUBSCRIPT, 

5794 07272 R 140200 R LETT2 DZM SCRIP /NO, SET FOR "NO SUBSCRIPT" AND 

5785 07273 R 607322 R JMP LOOKUP /GO SEARCH SYMBOL TABLE,. 

5786 / 

57B7 /PACK UP TO 3 ALPHA'S (5-BIT)? IGNORE ALL ALPHA'S AFTER THIRD. 

5788 / 

5789 07274 R 043724 R LETTl DAC SYNTAX 

5790 07275 R 111111 A LAw -1 

5791 07276 R 440214 R ISZ M /3 CHARS YET? 

5792 07277 R 745000 A SKP'CLL /NO. CONTINUE 



PA.GE 


152 


^U'^PS 


100 


EVALUATOR 






5793 




07300 R 


607263 


R 


J MP 


LETTO 


5794 




07301 R 


200177 


R 


FjAC 


SYM 


5795 




07302 R 


640705 


A 


ALS 


5 


5796 




07303 « 


243724 


R 


XOR 


SYNTAX 


5797 




07304 R 


040177 


R 


DAC 


SY^ 


579B 




07305 R 


607264 


R 


Jf^P 


LETT3 


5799 










.EJECT 





/*12JAH12* YES 



/*12JAH12t 
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HUMPS 


100 


^VALUATOR 






5800 










/NOMERI 


cs 




5801 










/ 






5802 


07306 


P 


104103 


R 


DIGIT 


CALL 


DFCIN 


5803 


07307 


R 


603724 


R 




JMP 


SYNTAX 


5804 


7 310 


R 


607332 


R 




JHP 


QPl 


5805 










/ 






5806 










/ 






5807 










/ 






5808 










/MULTIPLICATION 




5809 










/ 






5810 


07311 


R 


200242 


R 


STAR 


LAC 


6KCHAR 


5B11 


07312 


R 


740100 


A 




SMA 




5812 


07313 


R 


607203 


R 




JMP 


SCAM 


5813 


07314 


R 


607317 


R 




JMP 


SLASHl 


5814 










/ 






5815 










/DIVISION 




5816 










/ 






5817 


07315 


R 


200242 


R 


SLASH 


LAC 


BKCHAR 


5818 


07316 


R 


740100 


A 




SMA 




5B19 


07317 


R 


253662 


R 


SLASHl 


XOR 


(400000 


5820 


07320 


R 


040242 


R 




DAC 


BKCHAR 


5821 


07321 


R 


607203 


R 




JNP 


SCAN 


5822 










/ 






5823 










/SY-^BOL 


U' THE " 


TABLE? 


5824 










/ 






5825 


07322 


R 


754000 


A 


LOOKUP 


CLLICLA 




5826 


07323 


R 


105434 


R 




CALL 


SYNBOL 


5827 


07324 


R 


641002 


A 




LACO 




5828 


07325 


P 


741200 


A 


LOKUPl 


Si^A 




5829 


07326 


R 


000010 


A 




ERRIO 




5830 


07327 


R 


745400 


A 




SZLiCLL 




5831 


07330 


R 


607525 


R 




JMP 


STRl 


5832 


07331 


R 


220017 


A 




LAC^ 


R17 


5833 


07332 


R 


740200 


A 


OPl 


SZA 




5834 


07333 


R 


240207 


R 




XOR 


VAL 


5835 


07334 


R 


040207 


R 




DAC 


VAL 


5836 


07335 


R 


140202 


R 




DZM 


TEMP 


5837 


07336 


R 


777777 


A 




LAK' 


-1 


5838 


07 3 37 


R 


54U216 


R 




SAD 


TERM 


5839 


07340 


R 


607377 


R 




JMP 


0P2 


5B40 


07341 


R 


200242 


R 




LAC 


BKCHAR 


5841 


07342 


R 


705522 


A 




INTOFF 




5842 


07343 


R 


745100 


A 




SPAICLL 




584? 


07344 


R 


607354 


R 




wTWp 


DIVO 


5844 


07345 


R 


200207 


R 


^^UL0 


LAC 


VAL 


5845 


07346 


R 


664000 


A 




GSM 




5846 


07347 


R 


047352 


R 




DAC 


MaL2 


5847 


07350 


R 


200216 


p 




LAC 


TER?^ 


5848 


07351 


P 


657122 


A 




MULS 




5849 


07352 


R 


000000 


A 


MIJL2 







5850 


07353 


R 


607366 


R 




JMP 


^UL3 


5851 


07354 


R 


200207 


R 


DIVO 


LAC 


VAL 



/CONVERT TO ^UHERIC 

/RETURN HERE IF ERROR ENCOUNTERED 

/GO ON TO REST OF EVALUATIOM. 



'- SYNTAX SETUP FOR PROPER CAL 



/BKCHAR (0) IS MUL-DIV SiflJ 
/FORCE TO FOR MUL. 
/GO GET NEXT TERM, 
/4=12JAH12=«' 



/FORCE TO 1 FOR DIV. 
/*12JAril2^ 

/GO GET NEXT TER^4. 



/CONDITION FOR SYNBOL "GET" 

/GET THE SYMBOL 

/(RETURNED IN 4Q) 

/IS SYMBOL DEFINED? 

/m, "UNDEF" 

/YES, IS IT STR OR MUM? 

/STR, GO PROCESS, 

/NUM, GET VALUE AND COMTINUE 



/if«AS A * OR / ENCOUNTERED AFTER LAST TERM? 

/^'0, BYPASS MUL-DIV. 

/YES, CHECK MUL-DIV SWITCH (BIT 03 



/DIVIDE. 
/MULTIPLY. 
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MUMPS 


100 


eVALUATOR 






5852 


07355 


R 


664000 


A 




GSM 




5853 


07356 


R 


047364 


R 




DAC 


0IV2 


5854 


07357 


R 


200216 


R 




LAC 


TERM 


5855 


07360 


R 


657122 


A 




^!ULS? 


144 




07361 


R 


000144 


A 








5856 


07362 


R 


740000 


A 




NOP 




5857 


07363 


R 


644323 


A 




DIVS 




5858 


07364 


R 


000000 


A 


D1V2 







5859 


07365 


R 


607370 


R 




JMP 


0IV3 


5860 


07366 


R 


644323 


A 


MUL3 


DIVS; 


144 




07367 


R 


000144 


A 








5861 


07370 


R 


705521 


A 


DIV3 


IN TON 




5862 


7 3 71 


R 


741410 


A 




SZL'RAL 




5863 


07372 


R 


000006 


A 




ERR6 




5864 


07373 


R 


641002 


A 




LACQ 




5865 


07374 


R 


553741 


R 




SAD 


(777777 


5866 


07375 


R 


750000 


A 




CLA 




5867 


07376 


R 


741000 


A 




SKP 




5868 


07377 


R 


200207 


R 


aP2 


LAC 


VAL 


5869 


07400 


R 


040216 


R 




DAC 


TERM 


5870 


07401 


R 


104645 


R 




CALL 


OCHAR 


5871 


07402 


R 


554003 


R 




SAD 


(52 


5972 


07403 


R 


607311 


R 




JMP 


STAR 


5873 


07404 


R 


554004 


R 




SAD 


(57 


5874 


07405 


R 


607315 


R 




JMP 


SLASH 


5875 


07406 


R 


044645 


R 




DAC 


OCHAR 


5876 


07407 


R 


200242 


R 




LAC 


BKCHAR 


5B77 


07410 


R 


742010 


A 




RTL 




5878 


07411 


R 


200216 


R 




LAC 


TERN 


5879 


07412 


R 


745400 


A 




SZLiCLL 




5880 


07413 


R 


740001 


A 




CMA 




5881 


07414 


R 


300215 


R 




ADD 


SUM 


5882 


07415 


R 


553741 


R 




SAD 


(777777 


5883 


07416 


R 


740001 


A 




CMk 




5984 


07417 


R 


040215 


R 




DAC 


SUM 


5885 


07420 


R 


745400 


A 




SZLICLL 




5886 


07421 


R 


000006 


A 




ERR6 




5887 


07422 


R 


204645 


R 




LAC 


GCHAR 


5898 


07423 


R 


553777 


R 




SAD 


(53 


5899 


07424 


R 


607176 


R 




JMP 


PLUS 


5890 


07425 


R 


553776 


R 




SAD 


(55 


5891 


07426 


R 


607177 


R 




JMP 


i^INUS 


5892 


07427 


R 


200215 


R 




LAC 


SUN 


5893 


07430 


R 


040207 


R 




DAC 


VAL 


5894 


07431 


R 


627163 


R 




JWP* 


EVAL 


5895 










/ 






5896 










/QUf3re:s 






5897 










/ 






5898 


07432 


R 


200202 


R 


STRO 


LAC 


TEMP 


5899 


07433 


R 


741200 


A 




SiMA 




5900 


07434 


R 


000011 


A 




ERRll 




5901 


07435 


R 


104660 


R 


STRO.l 


CALL 


OCHARI 



/TERM * 100 / VAL 



/TERM * VAL / 100 



/RESULT TOO LARGE? 

/YES, "MAXIM" 

/NO, 

/"O? 

/YES, CHANGE TO +0 



/SAVE TERN AND 
/GET A CHAR. 
/* 

/SETUP FOR MULTIPLICATIOM, 

// 

/SETUP FOR DIVISION. 



/"SIGN" BIT FOR THIS IZRyi INTO LINK, 

/COMPLEMENT IF TERM ^EZ, 

/ACCUMULATE SUM, 

/IF -0, CHANGE TO -t-0 



/NUMBER TOO LARGE? 

/YES, "MAXIM" 

/MO, IF LAST CHAR f OR -, RECYCLE 

/ + 



/- 



/HOLD RESULT OF EVALUATION 
/IN "VAL" AND IN AC FOR 
/RETURN, 



/"NUM RES ONLY" ALLOWED? 

/YES, "MIXED" 

/*12JAH12=J^ WO. GET MEXT CHAR 
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5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
592b 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 



f^UMPS 


100 


eVALUATQR 






07436 


R 


741200 


A 




SHh 




07437 


R 


000003 


A 




ERR3 




07440 


R 


553755 


R 




SAD 


(42 


07441 


H 


607627 


R 




JMP 


STR3.1 


07442 


R 


104725 


R 




CALL 


ICHARI 


07443 


R 


200220 


R 




LAC 


IPOIMT 


7 4 4 4 


R 


540202 


R 




SAD 


TgVfp 


07445 


R 


741000 


A 




SKP 




07446 


R 


607435 


R 




Jr^P 


STRO.l 


07447 


R 


200221 


R 




LAC 


IPLACE 


07450 


R 


553727 


R 




SAO 


CKCI3 


07451 


R 


000006 


A 




ERR6 




07452 


R 


607435 


R 


/ 

/PARSNT 
/ 


JMP 


STRO.l 










HETICAL 1 


EXPRESSIOM 










SAVE ON- 


STACK # 


07453 


R 


777773 


A 


SUBEXP 


LAW 


-5 


07454 


R 


105040 


R 




CALL 


SAVE 


07455 


H 


207163 


R 




LAC 


eVAL 


07456 


R 


200242 


R 




LAC 


BKCHAR 


07457 


R 


200216 


R 




LAC 


TERH 


07460 


R 


200215 


R 




LAC 


SUM 


07461 


R 


200207 


R 




LAC 


VAL 


07462 


R 


200202 


R 




LAC 


TEHP 


07463 


R 


7 44200 


A 




SZAiCLL 




07464 


R 


744002 


A 




STL 




07465 


R 


107163 


R 




CALL 


evAL 


07466 


R 


634076 


E 




JMP* 


FUNOIJT 



##### 



07467 R 777771 A 

07470 R 105040 R 

07471 R 207163 R 

07472 R 200242 R 

07473 R 200216 R 

07474 R 200215 R 

07475 R 200207 R 

07476 R 200202 R 

07477 R 200177 R 

07500 R 744000 A 

07501 R 107163 R 

07502 R 040200 R 

07503 R 513661 R 

07504 R 740200 A 

07505 R 000005 A 

07506 R 104645 R 

07507 R 553754 R 



/CALCULATE VALUE QF SUBSCRIPT 
/ 

/##### SAVE OH STACK ##### 
SUBSCR 



/##### 



SAVE 

LAW 

CALL 

LAC 

LAC 

LAC 

LAC 

LAC 

LAC 

LAC 

CLL 

CALL 

DAC 

AND 

SZA 

ERRS 

CALL 

SAD 



STACK 
-7 

SAVE 

EVAL 

BKCHAR 

TERM 

SUM 

VAL 

TEMP 

SYN 



EVAL 
SCRIP 

C700000 



##### 



/IS IT EOH? 
/YES, "SYNTX" 
/NO, IS IT » 
/*12JAH12* YES 
/MO, STORE CHAR. 

/BUFFER FILLED? 

/*12JAH14* LAST i^ORD OF SUFFER 

/*12JAH14* r^OT LAST WORD 

/*12JAH14* CHAR POS 

/*12JAH14* LAST? 

/YES, "NAXIN" 

/=«=12JAH12* MO, CONTIMUS. 



/IS STRIMG LEVAL PARI OF EXP? 

/YES 

/MUST CALL EVAL RECURSIVELY FOR 

/SUB-EXPRESSIOMS 

/*12JAH12* FINISH UP 



QCHAR 
(51 



/CLEAR L FOR "MUM RES ONLY" BEFORE EVAL 
/MUST CALL EVAL RECURSIVELY FOR SUBSCRIPT 
/SAVE SUBSCRIPT 

/IS SUBSCRIPT MEG? 
/YES, "MINUS" 
/NO, GET A CHAR 
/IS IT S ) 
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mmps 


100 


eVALUATOR 






5954 


07510 


R 


741000 


A 




SKP 




5955 


07511 


R 


000003 


A 




ERR 3 




5956 










/##### 


POPSTACK 


5957 


07512 


R 


777771 


A 




LAW 


-7 


5958 


07513 


R 


105103 


R 




CALL 


UMSAVE 


5959 


07514 


R 


040177 


R 




DAC 


SYM 


5960 


07515 


R 


040202 


R 




DAC 


TEMP 


596t 


07516 


R 


040207 


R 




OAC 


VAL 


596:> 


07517 


R 


040215 


R 




DAC 


SUN! 


5963 


07520 


R 


040216 


R 




DAC 


TERN 


5964 


07521 


R 


040242 


R 




DAC 


8KCHAR 


5965 


07522 


R 


047163 


R 




DAC 


EVAL 


5966 










/##### 






5967 


07523 


H 


104660 


R 




CALL 


OCHARI 


5968 


07524 


R 


607322 


R 




JMP 


LOOKUP 


5969 










/STRING 


VARIABLE 


5970 










/ 






5971 


07525 


R 


200202 


R 


STRl 


LAC 


TFJA9 


5972 


07526 


R 


741200 


A 




SNA 




5973 


07527 


R 


OOOOU 


A 




ERRll 




5974 


07530 


R 


200017 


A 




LAC 


Rt7 


5975 


07531 


R 


740030 


A 




lAC 




5976 


07532 


R 


040230 


R 




DAC 


P0INT2 


5977 


07533 


R 


213732 


R 




LAC 


(XCOl 


5978 


07534 


R 


040231 


R 




OAC 


PLACE2 


5979 


07535 


R 


140227 


R 




DZM 


TEMP2 


5980 


07536 


R 


200133 


R 




LAC 


BUFF2 


59B1 


07537 


R 


721000 


A 




PAX 




598^ 


07540 


R 


540220 


R 




SAD 


I POINT 


5983 


07541 


R 


741000 


A 




SKP 




59B4 


07542 


R 


607612 


R 




JMP 


STRU1 


5995 


07543 


R 


200221 


R 




LAC 


IPLACE 


5986 


07544 


R 


553730 


R 




SAD 


(XCIl 


5987 


07545 


R 


741000 


A 




SKP 




5988 


07546 


R 


607612 


R 




JMP 


5TR1.1 


5989 


07547 


R 


220230 


R 




LAC* 


P0IMT2 


5990 


07550 


R 


653606 


A 




CLAC'LMOiLLS-1'6 


5991 


07551 


R 


723747 


A 




AAC 


-STRAC 


5992 


07552 


R 


740100 


A 




SMA 




599 3 


07553 


R 


000006 


A 




ERR6 




5994 


07554 


R 


723031 


A 




AAC 


STRACC 


5995 


07555 


R 


340133 


R 




TAD 


BUFF2 


5996 


07556 


R 


740030 


A 




TAC 




5997 


07557 


R 


722000 


A 




PAL 




5998 


07560 


R 


220017 


A 




LAC* 


R17 


5999 


07561 


R 


741200 


A 




SMA 




6000 


07562 


R 


607625 


R 




JMP 


STR3 


6001 












.DBREL 


; DBA 




07563 


R 


707762 


,A 








600? 


07564 


R 


741000 


A 




SKP 




6003 


07565 


R 


220017 


A 




LAC* 


R17 


6004 


07566 


R 


050000 


A 




DAC 


0,X 



##### 



##### 



/CALC 



/^iO, "SYMTAX" 

/YES 

/POP STACK 



/GO LOOKUP SU8SCRIPTS0 VARIABLE 



/"NU^I RES ONLY" 
/:^ES, "NIXED" 
/NO. 



ALLOWED? 



TRAWSFER AS 
1ST CHAR? 



f^ORMAL 



/POINTER FOR CHAR2 
/*12JAH14* INIT 
/*12JAH14* CHAR POS PTR 

/START OF STRING BUFFER 
/SAVE FOR TRANSFER 
/MOW AT BEGINP^I-MG? 
/YES 

/no, DO 
/NOIsJ AT 
/ 
/YES 

/no, DO 

/FETCH 
OFFSET 

/MAX LEWGTH 

/TOO LONG? 

/YES, ^hXl^ ERROR 

/RESTORE OFFSET 

/ADD TO START OF STR ACC 

/PLUS ONE 

/LIMIT OF TRANSFER 

/FETCH FIRST WORD OF STRING 

/NULL STRING? 

/YES, ALL DONE 

/MUST BE IN PAGE 



TRANSFER AS 
1ST WORD OF 



NORMAL 
STR 



/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAN17* 
/*12JAH17* 
/*12JAH17* 
/*12JA917* 

/*12JAH17* 
/*12JA917* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 



/IST TIME i^ORO 
/FETCH STR WORD 
/PUT IN STR ACC 



ALREADY PICKED 



UP /*12JAH17* 
/*12JAH17* 
/*12JAH17* 
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6005 
6006 
6007 

6008 
6009 
6010 
601.1 
6012 
6013 
6014 
6015 
6016 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
60 3 3 
6034 
6035 
6036 
6037 
6038 
6039 

6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
605 3 
6054 
6055 



MU^-IPS 


100 


EVALUATOR 






07567 


R 


725001 


A 




AXS 


1 


07570 


R 


607565 


R 




JMP 

.EBREL 


.-3 

; SBA 


07571 


R 


707764 


A 








07572 


R 


740200 


A 




SZA 




07573 


R 


607601 


R 




JMP 


STR1.2 


07574 


p 


213727 


R 




LAC 


(XCI3 


07575 


R 


040221 


R 




DAC 


IPLACE 


07576 


R 


724000 


A 




PXA 




07577 


R 


723776 


A 




AAC 


-2 


07600 


R 


607610 


R 




JMP 


STR1.4 


07601 


R 


513645 


R 


STRK2 


AND 


(007777 


07602 


R 


740200 


A 




SZA 




07603 


R 


213667 


R 




LAC 


(XCI2-XCII 


07604 


R 


353730 


R 




TAD 


CXCIl 


07605 


R 


040221 


R 




DAC 


IPLACE 


07606 


R 


724000 


A 




PXA 




07607 


R 


723777 


A 




AAC 


-1 


07610 


R 


040220 


R 


STR1.4 


DAC 


IPOINT 


07611 


R 


607625 


R 




JNP 


5TR3 






007612 


R 


STR1 .1= 


• 




07612 


R 


105014 


R 


STR2 


CALL 


CKAR2 


07613 


R 


607625 


R 




JMP 


STR3 


07614 


R 


104725 


R 




CALL 


ICHARI 


07615 


R 


200220 


R 




LAC 


IPOIMT 


07616 


R 


540202 


R 




SAD 


TENP 


07617 


R 


741000 


A 




SKP 




07620 


R 


607612 


R 




JMP 


STR2 


07621 


R 


200221 


R 




LAC 


IPLACE 


07622 


P 


553727 


R 




SAD 


CXCI3 


07623 


R 


000006 


A 




e:rr6 




07624 


R 


607612 


R 


/ 

/STRING 
/ 

STR3 


JMP 


STR2 










OPERATORS? 


07625 


R 


104645 


R 


CALL 


OCHAR 


07626 


R 


741000 


A 




SKP 




07627 


R 


104660 


R 


STR3,1 


CALL 


OCHART 


07630 


R 


553742 


R 




SAD 


(56 


0763! 


R 


607204 


R 




JMP 


SCANOO 


07632 


R 


750000 


A 




CLA 




07633 


R 


104725 


R 




CALL 


ICHARI 


07634 


R 


200221 


R 




LAC 


IPLACE 


07635 


R 


553730 


R 




SAD 


(XCIl 


07636 


R 


607645 


R 




JMP 


STR3.2 


07637 


R 


553727 


R 




SAD 


(XCI3 


07640 


R 


607646 


R 




JMP 


STR3.3 


07641 


p 


220220 


R 




LAC* 


T POINT 


07642 


R 


514005 


R 




AND 


(770000 


07643 


R 


060220 


R 




DAC* 


IPOINT 


07644 


R 


741000 


A 




SKP 




07645 


R 


160220 


R 


STR3,2 


DZM* 


IPQIMT 



/DONE? 

/no 

/YES, RESTORE TO BANK MODE 

/LAST WORD ZERO? 

/NO 

/¥ES, SET 

/CHAR POSITION 

/FETCH EMD OF STR IM ACC 

/ADJUST 

/FIMISH UP 

/LOOK AT 1ST CHAR 0?^'Li' 

/OWLY 1 CHAR? 

/MO 

/YES 

/SAVE CHAR POS 

/FETCH END OF STR in ACC 

/ADJUST 

/SAVE '^ORD POS 



/GET A CHAR. 

/EOW RETURN FROM CHAR2 

/STORE CHAR. 

/BUFFER FILLED? 



/1'12JAH14* 
/*12JAH14* 
/*12JAH14* 
/=«'l2JAH14t 
/*12JAH14* 



LAST ^ORD OF BUFFER 
HOT LAST /«0RO 
CHAR POS 
LAST ONE? 
YES. "MAXIM" 



/*12JAH17* 
/*12JAH17* 
/*12JAH17>I^ 

/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/*12JAH17* 
/=<=12JAH17* 
/=S=12JAH171= 
/*12JAH17* 
/'J'i2JAH17'*= 
/tl2JAH17* 
/*12JAH17* 
/*12JAH17* 
/=t^l2JAH17=J= 
/*12JAH17* 
/=<=12JAH17* 
/*12JAHX7'«= 
/=^12JAH17* 
/*12JAH17* 



/m, CONTIMUE. 



/GET A CHAR. 

/OR 

/INDEX AMD GET A CHAR. 

/. (COMCATENATIOM OPERATOR)? 

/'f'12JAH12* YES, GO GST MEXT STRING 

/P^JO. 



/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/'«'12JAH14* 
/*12JAH14* 
/♦12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*12JAH144^ 



CHAR POS PTR 

FIN 1 CHAR? 

YES 

FIN 3 CHARS? 

YES 

MO 

TRI^ 

FROM 



OFF LAST SIX 
LAST ^ORD OF 



BITS 
STRING 



CLEAR FI.MAL liORD 



PACK 15B MUMPS J 00 EVALUATOR 

6056 07646 R 200133 R STR3.3 LAC BUPF2 /*12JAH14* 

6057 07647 R 740031 A C^«AiIAC /'t=12JAH14* 

605B 07650 R 340220 R TAD lOQlMT /=(=12JAH14* -^lO OP LOGS' JSEO IN BUFF2 

6059 07651 R 513702 R AN'O (77 

6060 07652 R 650506 A CLQILRS 6 

6061 07653 » 220133 R LAC=P BUFF2 

6062 07654 R 513645 R AMD (7777 

6063 07655 R 640002 A OMQ /OFFSET INTO HI 6 6ITS. 

6064 07656 R 060133 R DAC* 9iJFF2 

6065 07557 R 754001 A NSTR CLAiCMA'CLL /HOLD 777777 (STR IN03 

6066 07660 R 040207 R DAC VAL /IN "VAL" AND IH AC FOR 

6067 07661 R 627163 R JMP* EVAL /RETURN. 
606B / 

6069 /RETURiM HFRE FPOH STR FUNCT PROCESSING. 

6070 / 

6071 007662 R STR4=, 

6072 .IFPMZ ^ONEY 

6073 07662 R 213674 R LAC (SKP 

6074 07663 R 040210 R DAC MONYSW /RESTORE SWITCH TO N'OM-SM ft^ODE 

6075 .ENDC 

6076 07664 R 104645 R CALL QCHAR /GET A CHAR 

6077 07665 R 553754 R SAD (51 /MUST BE A ) 

6078 07666 R 751001 A SKP'CLAJC^A /-I FOR POPPING STACK. 

6079 /###»» PDPSTACK ##### 

6080 07667 R 000003 A ERR3 /"SYNTX" 
6091 07670 R 105103 R CALL UNSAVF 

6082 07671 R 047163 R DAC EVAL 

60B3 /##### ##### 

6084 .IFPNZ FMONEY 

6085 07672 R 200211 R LAC VALF 

60B6 07673 R 741200 A SNA /FLOATING POINT VALUE RETURNED? 

6087 .ENDC 

6088 07674 R 607627 R JNP STR3.1 /NO, CONTINUE STRIMG PROCESSIi^G 

6089 .IFPNZ FMONEY 

6090 07675 R 104660 R CALL OCHARI /YES, ADVANCE 

6091 07676 R 607657 R JMP MSTR /EXIT FRO?^. EVAL 

6092 .ENDC 
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5093 .TITLE GLOBAL .VARIABLE ROUTIf^ES 

6094 / 

6095 /STRUCTURE OF CORE DIRECTORY FOR GL06ALS 

6096 / 

6097 /WORD 000 (15 BIT GLOBAL NAl^E IN 5 BIT R.A.) 

6098 /WORD 1 (18 BIT BLOCK POINTER TO FIRST BLOCK OF LEVEL 0) 

6099 /WORD 2 IHJU (15 BIT OPENED PARTITION NUMBER) UaU=UMIT 

6100 /WORD 3 X (17 BIT READ KEY) X=l , TRAP ON KEY VIOLATIDN 

6101 /WORD 4 Y (17 BIT OPEM KEY) Y=l , TRAP ON KEY VIOLATION 

6102 / 

6103 /GLOBAL OPEN AMD CLOSE 

6104 / 

6105 07577 R 744400 A OPEN SMLICLL 

6106 07700 R 000004 A ERR4 /"C^M^JD" 

6107 07701 R 104660 R CALL OCHARI 

610R 07702 R 554001 R SAD (36 /". 

6109 07703 R 607707 R J^^P OPEf^O 

6110 07704 R 104710 R OVERLAY CALL SUBOPT 

6111 07705 R 754000 A CLAICLL 

6112 07706 R 634141 E JHP* GLAY /*12JAH12* 

6113 / 

6114 07707 R 200222 R OPENO LAC OPOINT /OPEN 

6115 07710 R 040016 A DAC R16 

6116 07711 R 200223 R LAC OPLACE /*12JAH14* SAVE POS 

6117 07712 R 040015 A DAC R15 /=«=! 2 JAHl 4=*^ PTR 

6118 07713 R 140254 R OZM GSYMBOL /NO WAKEDS AFTER OPEM 

6119 07714 R 103641 R OPENl CALL PRODA /GET DISK 

6120 07715 R 100266 R OPENS CALL GASS /ASSEMBLE GLOBAL NAME 

6121 07716 R 000003 A ERR3 /"SYNTK" - ^MAKED MOT ALLOi,^ED 

6122 07717 R 440177 R ISZ SYM 

6123 07 7 20 R 440177 R ISZ SYM 

6124 07721 R 220177 R LAC* SYN 

6125 07722 R 513702 R AND (77 /GET OWNER 

6126 07723 R 745200 A SNAiCLL 

6127 07724 R 607747 R JWP 0PEN2 /MOBODY OWNS IT 

6128 07725 R 540655 R SAD RUNMMR 

6129 07726 R 607742 R JMP 0PEN4 /THIS USER OWMS IT, BUT TEST KEY ANYWAY 

6130 07727 R 110005 R CALL REI^OVE /SOMEOME ELSE OWNS IT - CLOSE.,. 

6131 07730 R 200172 R LAC WRTSW /WRITE OUT PARTITION BUFFER 

6132 07731 R 740200 A SZA 

6133 07732 R 134057 E JMS* DMPOLD /*12JAH12* 

6134 07733 R 140577 R DZN DSKACT /FREE DISK 

6135 07734 R 101533 R JMS HANG 

6136 07735 R 200016 A LAC R16 

6137 07736 R 040222 R DAC OPOINT /RESTORE POINTER... 

6138 07737 R 200015 A LAC R15 /*12JAH14* RESTORE 

6139 07740 R 040223 R DAC OPLACE /*12JAH14* CHAR POS PTR 

6140 07741 R 607714 R JMP OPENl /...AND TRY AGAIN 

6141 / 

6142 07742 R 260177 R 0PEN4 XOR* SYM /CLOSE UNTIL HE PROVIDES CORRECT KEY 

6143 07743 R 060177 R DAC* SYM 

6144 07744 R 777777 A LAW -l 
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MUMPS 


100 


G 
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6145 


07745 


R 


340670 


R 


TAD 


OPIMCNT 


6146 


07746 


R 


040670 


R 


DAC 


OPNCi^T 


614? 


07747 


R 


440177 


R 


0PEN2 ISZ 


SYM 


614B 


07 750 


R 


440177 


R 


ISZ 


SYn 


6149 


07751 


R 


220137 


R 


LAC* 


KVAR 


6150 


07752 


R 


040207 


R 


DAC 


^Mj 


61S1 


07753 


R 


104645 


R 


CALL 


OCHAR 


6152 


07754 


R 


553724 


R 


SAO 


(33 


6153 


07755 


R 


741000 


A 


SKP 




6154 


07756 


R 


607761 


R 


JMP 


.f3 


6155 


07757 


R 


105242 


R 


CALL 


GETKEY 


6156 


07760 


R 


000003 


A 


ERR3 




6157 


07761 


R 


105272 


R 


CALL 


KEVCHK 


6158 


07762 


R 


220177 


R 


LAC* 


SYM 


6159 


07763 


R 


540207 


R 


SAD 


VAL 


6160 


07764 


R 


740200 


k 


SZA 




6161 


07765 


R 


000032 


A 


ERR32 




6162 


07756 


R 


200177 


R 


LAC 


SYM 


6163 


07767 


R 


723776 


A 


AAC 


-2 


6164 


07770 


R 


040177 


R 


DAC 


SYM 


6165 


07771 


R 


220177 


R 


LAC* 


SYN 


6166 


07772 


R 


240655 


R 


XOR 


RU-MfMMB 


6167 


07773 


R 


060177 


R 


DAC* 


SYM 


6168 


07774 


R 


440670 


R 


ISZ 


0PMCf4T 


6169 


07775 


R 


104645 


R 


UPEN3 CALL 


OCHAR 


6170 


07776 


R 


553767 


R 


SAD 


(54 


6171 


07777 


R 


741000 


A 


SKP 




617 2 


10000 


R 


610040 


R 


JMP 


CLOSEO 


6173 


10001 


R 


104660 


R 


CALL 


OCHARI 


6174 


10002 


R 


554001 


R 


SAD 


(36 


6175 


10003 


R 


607715 


R 


JMP 


OPENfS 


6176 


10004 


R 


000013 


A 


ERR13 




6177 










.EJECT 





/DECRENIEiMT OPEN COUNTSR 
/POIMTER TO OPEM KEY 

/LEET BRACKET 

/"SY^TX" 



/KEY DOES NOT ^lATCH 

/P01>1TER TO WORD 2 (OPEN OWNER) 

/OPENED TO THIS PARTITIOM 

/, COMMA MEANS MORE TO DPE^J 

/DONE 

/", 

/MOT UP ARROW, "GLOBE" ERROR 
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6178 










/REMOVE 


CLOSES 


ALL GLOBALS 


6179 










/ 






61R0 


10005 


R 


000000 


A 


f^g^^O^*^"^ 




6181 


10006 


R 


214104 


E 


^<liWVOy# 


LAC 


GTA8LE 


6182 


10007 


R 


040177 


R 




DAC 


SfM 


6183 


10010 


R 


220177 


R 


REMOVl 


hhC^ 


S^TM 


61 R4 


10 011 


R 


553741 


R 




SAD 


(777777 


61B5 


10012 


R 


630005 


R 




JMP* 


REMOVE 


6186 


10013 


R 


440177 


P 


RMOV 


ISZ 


SYM 


6187 


10014 


R 


440177 


R 




ISZ 


SYM 


6188 


10015 


R 


220177 


R 




LAC* 


SYM 


6189 


10016 


R 


513702 


R 




AND 


(77 


6190 


10 017 


R 


540655 


R 




SAD 


RUNNMR 


6191 


10020 


R 


610027 


R 




JMP 


REN0V3 


6192 


10021 


R 


440177 


R 


REM0V2 


ISZ 


SYM 


6193 


10022 


R 


440177 


R 




ISZ 


SYN 


6194 


10023 


R 


440177 


R 




ISZ 


SYM 


6195 


10024 


R 


741400 


k 




SZL 




6196 


10025 


R 


610055 


R 




JMP 


CL0SE3 


6197 


10026 


R 


610010 


R 




JMP 


RENOVl 


6198 


10027 


R 


220177 


R 


REM0V3 


LAC* 


SYM 


6199 


10030 


R 


514006 


R 




AND 


C377700 


6200 


10031 


R 


060177 


R 




DAC* 


SYM 


6201 


10032 


R 


200670 


R 




LAC 


OPf^CNT 


6202 


10033 


R 


723777 


A 




AAC 


-1 


6203 


10034 


R 


040670 


R 




DAC 


qpncnt 


6204 


10035 


R 


610021 


R 




JMP 


REM0V2 


6205 










/ 






6206 


10036 


R 


103641 


R 


CLOSE 


CALL 


PRODA 


6207 


10037 


R 


110005 


R 




CALL 


REMOVE 


6208 


10040 


R 


200172 


R 


CLoseo 


LAC 


'^RTSW 


6209 


10041 


R 


744200 


A 




sza:cll 




6210 


10042 


R 


134057 


E 




jms* 


DMPOLD 


6211 


10043 


R 


140577 


R 




DZ'^'5 


DSKACT 


6212 


10044 


R 


440652 


R 




ISZ 


Stf^APSW 


6213 


10045 


R 


603573 


R 




JMP 


DTABLE 


6214 


10046 


R 


101533 


R 




JN^S 


HAMG 


6215 


10047 


R 


603573 


R 




JMP 


DTABLE 


6216 


10050 


R 


103641 


R 


CLOSEl 


CALL 


PRODA 


6217 


10 051 


R 


100266 


R 


CL0SE2 


CALL 


GASS 


6218 


10052 


R 


000003 


A 




ERR3 




6219 


10053 


R 


744002 


A 




STL 




6220 


10054 


R 


610013 


R 




JMP 


RMOV 


6221 


10055 


R 


104645 


R 


CL0SE3 


CALL 


OCHAR 


6222 


10056 


R 


553767 


R 




SAD 


(54 


6223 


10057 


R 


741000 


A 




SKP 




6224 


10060 


R 


610040 


R 




JMP 


CLOSEO 


6225 


10061 


R 


104660 


P 




CALL 


OCHAR I 


6226 


10062 


R 


554001 


R 




SAD 


(36 


6227 


10053 


R 


610051 


R 




JMP 


CL0SE2 


6228 


10064 


R 


000013 


A 




ERR13 




6229 












.EJECT 





Oi^'^^ED 8Y PRESENT USER. 



/*12JAH17* 
/*12JAH17* 



/END OF TABLE MARKER 

/DONE 

/POINTER TO WORD 2 (DPS-M 0':^NER) 



/RUNMH8 MATCHES - THIS GUY OWNS IT 



/GO TO NEXT EMTRY 
/SINGLE GLOBAL CLOSE? 
/YES - LEAVE 



/MASK OFF I0# 
/DECREMENT OPEM COUNTER 



/GET DISK, CLOSE USER'S GLOBALS 



/*12JAH12* WRITE OUT GLOBAL BUFF IF MECC 

/FREE DISK 

/TIME SLICE UP? 

/MO 

/YES, LET OTHERS RUM 

/GET DISK 

/FIND GLOBAL 

/.NAKED OP NOT THERE 

/FLAG SIMGLE GLOBAL CLOSE 

/GO TAKE IT A'^AY 

/WHAT'S NEXT 

/COMMA? 

/MORE TO COME 

/HO - DONE 

/GET NEXT CHAR. 

/".? 

/COMTIMUE 

/N!OT ^., "GLOBE" ERROR 
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6230 










/DEFINITIONS 




62 31 










/ 






6232 










/ 






6233 










/ 






6234 










/GLOBAL 


GET, cm 


^1£S HERE FRQH EVA 


6235 










/ 






6236 


10065 


R 


100270 


R 


GGET 


CALL 


GS5fM 


6237 


10066 


R 


754000 


A 




CLLICLA 




6238 


10067 


R 


100272 


R 




CALL 


GLOBAL 


6239 


10070 


R 


641002 


A 




LACQ 




6240 


10071 


R 


644000 


A 




ABS 




6241 


10072 


R 


607325 


n, 




JMP 


LOKUPl 


6242 










/ 






6243 










/ 






6244 










/GLOBAL 


PUT, COMES HERE FROM SET 


6245 










/ 






6246 


10 07 3 


R 


10 27 


R 


GPUT 


CALL 


GSYN 


6247 


10074 


R 


553762 


R 




SAD 


(75 


624 8 


10075 


R 


755002 


A 




SKPiCLA 


iSTL 


6249 


10076 


R 


000003 


A 




eRR3 




6250 


10077 


R 


107163 


R 




CALL 


EVAL 


6251 


10100 


R 


754002 


A 




STLiCLA 




6252 


10101 


R 


740010 


A 




RAL 




6253 


10102 


R 


100272 


R 




CALL 


GLOBAL 


6254 


10103 


R 


613244 


R 




JMP 


SEr2 


6255 










/ 






6256 










/ 






6257 










/GLOBAL 


KILL, i 


:Q^^ES HERE FROM K 


6258 










/ 






6259 


10104 


R 


100270 


R 


GKTLL 


CALL 


GSYN 


6260 






010105 


R 


GKILL2= 


• 




6261 


10105 


R 


750001 


A 




CLC 




6262 


10106 


R 


100272 


K 




CALL 


GLOBAL 


6263 


10107 


R 


612527 


R 




JMP 


KILL 15 


6264 


10110 


R 


750001 


A 


GKILL3 


CLC 




6265 


1 0111 


R 


100272 


R 




CALL 


GLOBAL 


6266 






010112 


R 


GKILL4= 


• 




6267 


10112 


R 


612527 


R 




JHP 


KILL15 


626R 












.EJECT 





/RETURM TO EVAL 



/ = 



/"SYiNiTX:" - NUMERIC CHARACTER 
/PUNCTUATIOM CHAR 



/PUT 

/JUMP BACK TO SET 



/*12JAH12=^ 

/UMSU6SCRIPTED KILL 

/INDICATOR TO XGLOBAL OF CO^^P. KILL 

/♦12JAH12* 
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6269 /XGASS - ASSEMBLE A GLOBAL NAf4£, FIND IT 

6270 / 

6271 /CALLING SEQUEMCE; 

6272 / CALL GASS 

6273 / RETURNS HERE IP POSSIBLE NAKED 

6274 / RETURNS HERE IF FOUND - SYNI HOLDS POIN'TER TO ^OROO OF GLOBAL 

6275 / ENTRY 5 WORD TABLE 

6276 / 

6277 10U3 R 777775 A XGASS LAiM -3 /CHAR COUNT IS 3 

6278 10114 R 040214 R DAC M 

6279 10115 R 104660 R CALL OCHARI 

6280 10116 R 103724 R CALL SYNTAX 

6281 10117 R 610132 R JHP GASS5 

6282 10120 R 000003 A ERR3 /"SYMTX" 

6283 10121 R 620266 R JMP* GASS /POSSIBLE NAKED 

6284 10122 R 440214 R GASSl ISZ H /BUMP CHAR COUNT 

6285 10123 R 610127 R JMP GASS15 /^♦=12JAH12* 

6286 10124 R 111111 A hm -1 /EXCESS CHARS 

6287 10125 R 040214 R DAC M 

6288 10126 R 610133 R JMP GASS2 

6289 10127 ^ 640505 A GASS15 LRS 5 /*12JAH12* 

6290 10130 R 200204 R LAC SY^^S /RUNi^ING NAME 

6291 10131 R 640605 A LLS 5 

6292 10132 R 040204 R GASS5 DAC SYMS 

6293 10133 R 104660 R GASS2 CALL OCHARI 

6294 10134 R 103724 R CALL SYNTAX 

6295 10135 R 610122 R JMP GASSl 

6296 10136 R 000003 A ERR3 /"SYNTX" 

6297 /BEGIN SEARCH 

6298 / SYMS HOLDS 5 BIT R,A. GLOBAL Hk¥iE 

6299 10137 R 440266 R ISZ GASS 

6300 10140 R 214104 E LAC GTABlE /GET GLOBAL DIRECTORY POINTER 

6301 10141 R 040177 R GASS6 DAC SYM 

6302 10142 R 220177 R LAC* SYM 

6303 10143 R 553741 R SAD C777777 /END OF TABLE MARKER 

6304 10144 R 000010 A ERRIO /"UNDEF" » NOT IN TABLE 

6305 10145 R 540204 R SAD SYMS 

6306 10146 R 620266 R jwp* GASS /GOT IT! 

6307 10147 R 200177 R LAC SY^^ 

6308 10150 R 723005 A AAC 5 /ADVANCE TO NEXT ENTRY 

6309 10151 R 610141 R JMP GASS6 

6310 .EJECT 
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6311 /GSYM PACKS SUBSCRIPTS INTO USSR'S STACK. 

6312 / 
6313 
6314 
6315 

6316 10155 P 047107 R DAC SETin /SAVE STACK POIMTER QFFSET 

6317 

631B 10157 R 140213 R OZM OFLAQ /ZERO FIRST SUBSCRIPT INDICATOR *12JAH9=J= 

6319 

6320 10161 R 610375 R JMP GSYMll /WAKED *12JAH9* 

6321 
6322 
6323 
6324 
6325 

6326 10165 R 220137 R LAC* KVAR /IN CASE %K NEEDED 

6327 
6328 
6329 

6330 10171 R 040214 R DAC M /POINTER TO I^ORD 2 - Dw'^ERSHIP 

6331 1017? R 220214 R LAC* M /PICK UP OWNER 
6 3 32 

6333 10174 R 440214 R ISZ H /POINTER TO OPEN KEY 

6334 
6335 

6 336 10177 R 610350 R JMP GSYM 3 /ALREADY OWr^ED BY THIS GUY - NO 

6337 /KEY CHECKING r^jECESSARY UNLESS HE INSISTS 

6338 

6339 10201 R 553724 R SAD (33 /LEFT BRACKET 

6340 

6341 10203 R 610214 R JMP GSYM21 /*12JAH9* 

6342 10204 R 777777 A GSYN2 hh^ -I /SAVE SUBSCRIPT =i'12JAH9* 

6343 10205 R 105040 R CALL SAVE /INDICATOR *12JAH9* 

6344 10206 R 200213 R LAC OFLAG /WORD *12JAH9* 

6345 10207 R 105242 R CALL GETKEY /PUTS KEY IN VAL *12JAH9* 

6346 10210 R 000003 A ERR3 /"SYNTX" 

6347 10211 R 777777 A LAW -1 /RESTORE *12JAH9* 

6348 10212 R 105103 R CALL UNSAVE /SUBSCRIPT *12JAH9* 

6349 10213 R 040213 R DAC OFLAG /INDICATOR *12JAH9* 
6350 
6 351 

6352 10215 R 220214 R LAC* M /REQUIRED KEY 

6353 10216 R 540207 R SAD VAL /USER SUPPLIED KEY 
6354 

6355 10220 R 610231 R JMP GSYMO /*12JAH12* OK - MATCHES OPEN KEY 

6356 

6357 

6358 

6359 10223 R 040214 R DAC N /POINTER TO READ KEY 

6360 

6361 10225 R 220214 R LAC* M /REQUIRED KEY 

6362 10226 R 540207 R SAD VAL /USER SUPPLIED KEY 



10152 


R 


200165 


R 


XGSYM LAC 


STACK 


10153 


R 


740031 


A 


TCA 




10154 


R 


340166 


R 


TAD 


SPOINT 


10155 


R 


047107 


R 


DAC 


SETin 


10156 


R 


140177 


R 


DZ.M 


SYM 


10157 


R 


140213 


R 


DZM 


OFLAG 


10160 


R 


100266 


R 


CALL 


GASS 


10161 


R 


610375 


R 


JMP 
/##### SAVE ON 


GSYMll 
STACK # 


10162 


R 


777777 


A 


LAi^ 


-1 


1.0163 


R 


105040 


R 


CALL 


SAVE 


10164 


R 


200207 


R 


LAC 
/##### 


VAL 

##### 


10165 


R 


220137 


R 


LAC* 


KVAR 


10166 


R 


040207 


R 


DAC 


VAL 


10167 


R 


200177 


R 


LAC 


SYM 


10170 


R 


723002 


A 


AAC 


2 


10171 


R 


040214 


R 


DAC 


M 


1017? 


R 


220214 


R 


LAC* 


M 


10173 


R 


440214 


R 


ISZ 


M 


10174 


R 


440214 


R 


ISZ 


^1 


10175 


R 


513702 


R 


AND 


(77 


10176 


R 


540655 


R 


SAD 


RUNNMR 


1017 7 


R 


610350 


R 


JMP 


GSYM3 


10200 


H 


104645 


R 


CALL 


OCHAR 


10201 


R 


553724 


R 


SAD 


(33 


10202 


R 


741000 


A 


SKP 




10203 


R 


610214 


R 


JMP 


GSYM21 


10204 


R 


777777 


A 


GSYN2 hh^ 


-I 


10205 


R 


105040 


R 


CALL 


SAVE 


10206 


R 


200213 


R 


LAC 


OFLAG 


10207 


R 


105242 


R 


CALL 


GETKEY 


10210 


R 


000003 


A 


ERR3 




10211 


R 


777777 


A 


LAW 


-1 


10212 


R 


105103 


R 


CALL 


UNSAVE 


10213 


R 


040213 


R 


DAC 
/TRY OPEN KEY 


OFLAG 


10214 


R 


105272 


R 


GSYM21 CALL 


KEYCHK 


10215 


R 


220214 


R 


LAC* 


M 


10216 


R 


540207 


R 


SAD 


VAL 


10217 


R 


741200 


A 


SNA 




10220 


R 


610231 


R 


JMP 
/TRY READ KEY 


GSYMO 


10 2 21 


1^ 


200214 


R 


LAC 


n 


1^222 


R 


723777 


A 


AAC 


-1 


10223 


R 


040214 


R 


DAC 


w) 


10224 


R 


105272 


R 


CALL 


KEYCHK 


10225 


R 


220214 


R 


LAC* 


M 


10226 


R 


540207 


R 


SAD 


VAL 
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6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6395 
6386 
63B7 
63R8 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
640? 
6403 
6404 
6405 
6406 
6407 
6408 
640Q 
6410 
6411 
6412 
6413 
6414 
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riNES 


10227 


R 


740200 


A 




SZA 




10230 


R 


000032 


A. 




ERR32 












/#####POPSTACK 


(l#### 


10231 


R 


777777 


A 


GSYMO 


LAi^i 


-1 


10232 


R 


105103 


R 




CALL 


UNSAVE 


10233 


R 


040207 


R 


/####** 


DAC 


VAL 


10234 


R 


104645 


R 




CALL 


OCHAR 


10235 


R 


553753 


R 


GSYMl 


SAD 


(50 


10236 


R 


751001 


A 




SKPiCLC 




10237 


R 


610354 


R 


/####^ 


JMP 
SAVE ON 


GSYM4 
STACK 


10240 


R 


105040 


R 




CALL 


SAVE 


1.0241 


R 


200177 


R 


/ 

/ 


LAC 
SAVE ON 


SYM 
STACK 


10242 


R 


777767 


A 


GSCRIP 


LAN 


"11 


10243 


R 


105040 


R 




CALL 


SAVE 


10244 


P 


207163 


R 




LAC 


EVAL 


10245 


R 


200242 


R 




LAC 


8KCHAR 


10246 


R 


200216 


R 




LAC 


TERM 


10247 


R 


200215 


R 




LAC 


SU*^! 


10250 


R 


200207 


R 




LAC 


VAL 


10251 


R 


200202 


R 




LAC 


TEMP 


10252 


R 


207107 


R 




LAC 


SETIO 


10253 


R 


200270 


R 




LAC 


GSYM 


10254 


R 


20021 3 


R 




LAC 


OFLAG 


10255 


R 


744000 


A 




CLL 




10256 


R 


107163 


R 




CALL 


EVAL 


10257 


R 


040200 


R 




OAC 


SCRIP 


10260 


R 


777767 


A 




LAi^ 


-11 


10261 


R 


105103 


R 




CALL 


UMSAVE 


10262 


R 


040213 


R 




DAC 


OFLAG 


10263 


H 


040270 


R 




DAC 


GSYM 


10264 


R 


047107 


R 




DAC 


SETIn 


10265 


R 


040202 


R 




DAC 


TEf^P 


10266 


R 


040207 


R 




DAC 


VAL 


10267 


R 


040215 


R 




DAC 


SUM 


10270 


R 


040216 


R 




DAC 


TERM 


10271 


R 


040242 


R 




DAC 


BKCHAR 


10272 


R 


047163 


R 


/ 


DAC 


EVAL 


10273 


R 


200200 


R 


LAC 


SCRIP 


10274 


R 


513661 


R 




AND 


(700000 


10275 


R 


741200 


A 




SNA 




10276 


R 


610332 


R 




JMP 


GSCRII 


10277 


R 


104645 


R 




CALL 


OCHAR 


10300 


R 


553754 


R 




SAD 


(51 


10301 


R 


741000 


A 




SKP 




10302 


R 


000006 


A 




ERR6 








##### 



##### 



/KEYS 00 NOT MATCH 
/4=l2JAHi2* 



/ CHAR 

/( 

/CLC PLACES -1 INTO ACCUM FOR SAVE COUMT 



/^12JAH9* 



/*12JAH9* 

/EVALUATE SUBSCRIPT (WHICH ^kY USE GLOBALS) 

/*12JAH9* 
/*12JAH9^ 
/♦12JAH9* 
/*12JAH9* 
/*12JAH9'«= 
/*12JAH9* 
/*12JAH9=^ 
/♦12JAH9* 
/*12JAH9* 
/*12JAH9* 
/*12JAH9* 

/FETCH SUBSCRIPT *12JAH9* 

/<0 OR > 327.67 ? 

/*12JAH9* 

/WO, PROCEED AS N'ORMAL 

/LAST *12JAH9* 

/SUBSCRIPT ? ) *12JAH9* 

/*12JAH9* 

/NO, RANGE ERROR *12JAH9* 
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6415 


10303 


R 


200270 


R 




LAC 




GSYw 


6416 


10304 


R 


513657 


R 




AND 




(77777 


6417 


10305 


R 


554112 


E 




SAD 




HFGLOl 


6418 


10306 


R 


610330 


R 




JNP 




GSifMlO 


6419 


10307 


R 


554146 


E 




SAD 




QF7 


6420 


10310 


R 


751001 


A 




SKPICLC 




6421 


10 311 


R 


000006 


A 




ERR6 






642? 


10312 


R 


J 05040 


R 




CALL 




SAVE 


6423 


10313 


R 


207107 


R 




LAC 




SETIO 


6424 


10314 


R 


104660 


R 




CALL 




OCHARI 


6425 


10315 


R 


200213 


R 




LAC 




OFLAG 


6426 


10 316 


R 


741300 


A 




SPAISNA 




6427 


10317 


R 


634136 


E 




JMP* 




OF 2 


6428 


T0320 


R 


513672 


R 




AMD 




(177777 


6429 


10321 


R 


740200 


A 




SZA 






6430 


10322 


R 


634140 


E 




JMP4= 




0F5 


6431 


10323 


R 


777776 


A 




LAW- 




-2 


6432 


10324 


R 


105103 


R 




CALL 




UivISAVE 


6433 


10325 


R 


047107 


R 




DAC 




SETIO 


6434 


.10326 


R 


040177 


R 




DAC 




SYN 


6435 


10327 


R 


634147 


E 




JMP* 




QF8 


6436 


10330 


R 


777777 


A 


GS^MIO 


hm 




-I 


6437 


10331 


R 


040200 


R 




DAC 




SCRIP 


6438 










/ 








6439 










/ 








6440 










/##### 


SAVE 


ON 


STACK 


6441 


10332 


R 


777777 


A 


GSCRll 


LAW 




-1 


6442 


10333 


R 


105040 


R 




CALL 




SAVE 


6443 


10334 


R 


200200 


R 




LAC 




SCRIP 


6444 










/##### 








6445 


10335 


R 


440213 


R 




ISZ 




QFLAG 


6446 


10336 


R 


104645 


R 




CALL 




QCHAR 


6447 


10337 


R 


553767 


R 




SAD 




(54 


6448 


10340 


R 


610242 


R 




J MP 




GSCRIP 


6449 


10341 


R 


553754 


R 




SAD 




(51 


6450 


10342 


R 


751001 


A 




SKP'CLC 




6451 


10343 


R 


000003 


A 




ERR3 






645? 










/##### 


SAVE 


ON 


STACK 


6453 


10344 


R 


105040 


R 




CALL 




SAVE 


6454 


10345 


R 


207107 


R 




LAC 




SETIO 


6455 


10346 


R 


104660 


R 




CALL 




OCHARI 


6456 


10347 


R 


620270 


R 




JMP^J^ 




GSYM 


6457 










/ 








6458 


10350 


R 


104645 


R 


GSYM3 


CALL 




OCHAR 


6459 


10351 


R 


553724 


R 




SAD 




(33 


6460 


10352 


R 


610204 


R 




JMP 




GSYM2 


6461 


10353 


R 


610231 


R 




JNP 




Gsy^o 


6462 


1^354 


R 


553754 


R 


GSYV4 


SAD 




(51 


6463 


10355 


R 


610363 


R 




JWP 




GSYM5 


6464 


10356 


R 


200270 


R 




LAC 




GSYM 


6465 


10357 


R 


513657 


R 




AND 




(77777 


6466 


10360 


R 


554007 


R 




SAD 




(GKILL2 



if # # # # 



####» 



##### 



/WHERE DID iA^E ENTER XGSYM FROM? *12JAH9=«= 

/^hSK ADDRESS 3ITS *12JAH9=«' 

/*12JAH12t FRO!^ SHIGH 

/YES *12JAH9* 

/*12JAH12^ FRQ^ SQUERY? 

/YES =^12JAH9t 

/NO, RANGE ERROR *12JAH9=i= 

/STACK SUBSCRIPT START PTR INFO *12JAH9* 

/*12JAH9* 

/FETCH MEXT CHAR *12JAH94= 

/*12JAH9* 

/FIRST SUBSCRIPT? *l2JAH9=t= 

/1^12JAH12'!' YES, MOT ^AKED 

/isJAKED FIRST SUBSCRIPT? 1=12JAH9^ 

/*12JAH9=*^ 

/*12JAH12-=S= HQ, JOIN $0 

/YES ^njAHg^t' 

/*12JAH94= 

/*12JAH9* 

/*12JAH12* RETURM TO $3 

/SET TO NEGATIVE SUBSCRIPT *12JAH9* 

/FOR $HIGH *12JAH9* 



/*12JAH94: 

/PUT SUBSCRIPT INTO STACK 

/IlvfCR # OF SUBSCRIPTS^ *12JAH9* 

/, 

/MORE 

/) 

/CLC PLACES -1 IMTO ACCUM FOR SAVE 

/"SYMTX" 



/OLD STACK POIMTER 
/RETURN l^ITH NEXT CHAR 
/DONE 



/LEFT BRACKET 

/HE INSISTS ON A KEY CHECK 

/=S=12JAH12* NO KEY GIVEN, BUT HE'S OK 

/) 

/UNSUBSCRIPTED KILL "GLO 
/4=12JAHi2'«' 
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6467 


10361 


R 


610402 


R 






JMP 


GSYM6 


6468 


10362 


R 


000003 


ft 






ERR3 




6469 


10363 


R 


200270 


R 


GSY 


M5 


LAC 


GSYM 


6470 


10364 


R 


513657 


R 






AWD 


(77777 


6471 


10365 


R 


554140 


E 






SAD 


0F5 


6472 


10366 


R 


741000 


A 






SKP 




6473 


10 367 


R 


000003 


A 






ERR3 




6474 


1 3 7 


R 


777776 


A 






LAl-^^ 


-2 


6475 


10371 


R 


105040 


R 






CALL 


SAVE 


6476 


10372 


R 


200177 


R 






LAC 


SYN 


6477 


10373 


R 


207107 


R 






LAC 


SETIO 


6478 


10374 


R 


634136 


E 






JMP* 


GF2 


6479 


10375 


P 


652000 


A 


GSYMll 


LHQ 




6480 


10376 


R 


213663 


R 






LAC 


C200000 


6481 


10377 


R 


040213 


R 






DAC 


OPLAG 


6482 


10400 


R 


641002 


A 






LACQ 




6483 


10401 


R 


610235 


R 






JHP 


GSYNi 


6484 


10402 


R 


777775 


A 


GSY 


M6 


LAvV 


-3 


6485 


10403 


R 


105040 


R 






CALL 


SAVE 


6486 


10404 


R 


200177 


R 






LAC 


SYM 


6487 


1 0405 


R 


750000 


A 






CLA 




648 8 


10406 


R 


207107 


R 






LAC 


SETIO 


6489 


10407 


R 


610110 


R 






JWP 


GKILL3 


6490 














•EJECT 





/YES 

/NO, "SYMTX" 

/FIRST LEVEL $3 CALL? 

/*12JAH12=«^ 

/*12JAH12* 

/K'0,"SyMTX" 
/YES 



/*12JAH12'^ GO FETCH ISi GLOBAL 3LK 

/SAVE CHAR *12JAH9* 

/INDICATE NAKED =^12JAH9>^ 

/*12JAH9* 

/RETRIEVE CHAR *12JAH9t 

/*12JAH9'«' 

/STACK PSEUDO SUBSCRIPT 



/FAKE SUBSCRIPT 
/ENTER GLOBAL ROUTIMES 
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6491 /GLOBAL SUBROUTINE 

6492 / 

6493 /GET, PUT. AND KILL FUNCTION 

6494 / 

6495 / GLFNCT SAVES FOMCTinN 

6496 / GET - GLFMCT=0 

6497 / PUT - GLF'^CTsl 

6498 / JOIN PUT - GLFMCT=2 

6499 / KILL - GLFNCT=7777?7 COR ANYTHING ^fEG.) 

6500 / 

6501 / CALLS: 

6502 / GET CLA 

6503 / CALL GLOBAL 

6504 / PUT AC=400000 (200000 IF JOIN PUT) 

6505 / CALL GLOBAL 

6506 / KILL CLC 

6507 / CALL GLOBAL 

6508 / 

6509 / RETURi^JS! 

6510 / GET GOOD SUBSCRIPT IN m 

6511 / LINK SET IF STRING 

6512 / hhC^ R17 GETS DATA 

6513 / LAC* 15 GETS SUBSCRIPT 

6514 / BAD CLEAR LINK 

6515 / MQ = IF fMODE NOT OEFI?^IED 

6516 / m = -0 IF POI^-^^TER (BUT NO DATA) IS TH.SRS 

6517 / PUT SUB IN MO 

651fl / LAC^ 15 GETS SUBSCRIPT 

6519 / HE'fi DATA AT BOTTOM. OF BLOCK 

6520 / KILL CLEAR MQ IF THERE wFRE LOWER LEVELS 

6521 / SUB IN MQ IF NO LOWER LEVELS 

6522 / 

6523 / 

6524 10410 R 103641 R XGLQBAL CALL PRODA /GET DISK 

6525 ,IFPMZ FMONEY 

6526 10411 R 553662 R SAD C400000 /PUT? 

6527 10412 R 610564 R JMP FPERRC /YES 

6528 10413 R 553663 R SAD (200000 /PUT? 

6529 10414 R 610564 R JHP FPERRC /¥ES 

6530 .ENDC 

6531 10415 R 051327 R GBACKl DAC GLFMCT 

6532 10416 R 777776 A LAW -2 

6533 10417 R 340166 R TAD SPOINT /COHPLEMEMTS LI^K 

6534 10420 R 051321 R DAC GOONE /POINTER TO LAST SUB 

6535 10421 R 040166 R DAC SPOINT 

6536 10422 R 440166 R ISZ SPOIMT 

6537 10423 R 220166 R LAC* SPOIf-fT 

6538 10424 R 340165 R TAD STACK /ADD OFFSET 

6539 10425 R 040166 R DAC SPOIMT /RESTORE STACK POINTER 

6540 10426 R 051326 R DAC GINDRX /POINTS TO GLOBAL 'NANS' IN STACK 

6541 10427 R 200166 R LAC SPOI^JT /CALCULATE *12-3* 

6542 10430 R 740031 A TCA /EFFECTIVE =«=12-3* 
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6543 


10431 


R 


351321 


R 


TAD 


GDOME 


6544 


10432 


R 


723002 


A 


AAC 


2 


5545 


10433 


R 


040017 


A 


DAC 


R17 


6546 


10434 


R 


744010 


A 


RCL 




6547 


10435 


R 


300017 


A 


ADD 


R17 


6548 


10436 


R 


360146 


R 


TAD'«' 


S^AR 


6549 


10437 


P 


060146 


R 


DAC* 


SVAR 


6550 


10440 


R 


231326 


R 


LAC* 


GINDKX 


6551 


10441 


R 


740200 


A 


SZA 




6552 


10442 


R 


040254 


R 


DAC 


GSY-MBOL 


6553 


10443 


R 


200254 


R 


LAC 


GSYHROL 


6554 


10444 


R 


741200 


A 


SNA 




6555 


10445 


R 


000013 


A 


ERR13 




6556 


10446 


R 


7400 30 


A 


I AC 




6557 


10447 


R 


040017 


A 


DAC 


R17 


6558 


10450 


R 


211327 


R 


LAC 


GLF^JCT 


6559 


10451 


R 


745200 


A 


SNAiCLL 




6560 


10452 


R 


744002 


A 


STL 




6561 


10453 


R 


220017 


A 


LAC* 


H17 


656? 


10454 


R 


513702 


R 


AND 


(77 


6563 


10455 


R 


240655 


R 


XOR 


RUNMMR 


6564 


10456 


R 


744600 


A 


SZAISML 


ICLL 


6565 


10 457 


R 


000020 


A 


ERR20 




6566 


10450 


R 


231326 


R 


LAC* 


G INDEX 


6567 


10461 


R 


745200 


A 


S^'AiCLL 




6568 


10462 


R 


610600 


R 


JS^P 


GNQSYM 


6569 


10463 


R 


040017 


A 


DAC 


R17 


6570 


10464 


R 


040255 


R 


DAC 


GHDQLO 


6571 


10465 


R 


220017 


A 


LAC* 


R17 


6572 


10466 


R 


040253 


R 


DAC 


GHEAD 


6573 


10467 


R 


220017 


A 


LAC* 


R17 


6574 


10470 


P 


653603 


A 


LMQ!CLACiLLS+3 


6575 


10471 


R 


402 47 


R 


DAC 


GUNIT 


6576 


1047? 


R 


200253 


R 


LAC 


GHEAD 


6577 


10473 


R 


040253 


R 


GBACK2 DAC 


GHEAD 


6578 


1 47 4 


R 


451326 


R 


ISZ 


GINDEX 


6579 


10475 


R 


140252 


R 


GBACK3 DZM 


GHI 


6580 


10 4 7 6 


R 


652000 


A 


L^^Q 




6581 


10477 


R 


200272 


R 


LAC 


GLOBAL 


6582 


10500 


R 


513657 


P. 


AND 


(77777 


65R3 


10501 


R 


554137 


E 


SAD 


0F3 


6584 


10502 


R 


620272 


R 


JMP* 


GLOBAL 


65R5 


10503 


R 


641002 


A 


LACQ 




6586 


10504 


P 


111331 


R 


G6ACK4 JMS 


GOISK 


6587 


10505 


R 


540704 


R 


GBACK5 SAD 


OSKBFF 


6588 


10506 


R 


610572 


R 


J^^P 


GOOFF 


6589 


10507 


R 


200272 


R 


LAC 


GLOBAL 


6590 


10510 


R 


513657 


P 


AND 


(77777 


6591 


10511 


R 


554010 


R 


SAD 


(GKILL4 


6592 


10512 


R 


741000 


A 


SKP 




6593 


10513 


R 


6105 35 


R 


JfviP 


BACK5A 


6594 


10514 


R 


111426 


R 


BACK5B JMS 


GLSET 



/PGP OF STACK *12-3* 

/*12-3* 

/R17 USED AS TENP STORAGE *12-3* 

/NULTIPLY BY *12-3* 

/3 CHARS PER ytfORD *12-3* 

/ALTER %S *12-3* 

/ACCORDINGLY *12-3* 

/GET NANE 

/NAKED? 

/HO 

/IS THERE A HkHE 

/NO, "GLOBE" 

/If^'CREMENT POINTER li^TO GLOBAL TABLE 

/FETCH INPUT CODE *12-3* 
/CLEAR LINK = GET *l2-3* 
/*12-3* 

/GET WORD 3 OF THE GLOBAL 
/OWNERSHIP BITS 

/LINK CLEAR IF KILL OR PUT 

/"CLOSE" 

/GET NAME 

/NAKED ACCESS ? 

/YES 

/NO 

/SET UP POINTERS 



/NEXT SUBSCRIPT 

/HO EMPTIEST BLOCK (SEE GCONTl) 



/♦12JAH12* FIRST LEVEL $0 CALL? 

/*12JAH12* 

/YES, EXIT 

/HO 

/READ - RETUR'MS I^ITH GENO AND R17 SET 

/CHECK FOR OFFSET=0 (GSND IN AC) 

/O OFFSET, GO SEE i«/HAr FUNCTION 

/UNSUBSCRIPTED KILL? 

/*12JAH12* 

/YFS 

/HO, PROCESS AS MORMAL 

/RESET R17 ON XFER TO HERE 
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6595 


10515 


R 


200017 


A 




LAC 


R17 


6596 


10516 


R 


551322 


R 




SAO 


GEND 


6597 


10517 


R 


610525 


R 




JNP 


SACK5C 


659B 


10520 


R 


220017 


A 




LAC* 


R17 


6599 


10521 


R 


513657 


R 




AMD 


C77777 


6600 


10522 


R 


071326 


R 




DAC* 


GINDEX 


6601 


10523 


R 


111426 


R 




JMS 


GLSET 


6602 


10524 


R 


610540 


R 




JMP 


GBACK.6 


6603 


10525 


R 


220704 


R 


BACK5C 


LAC* 


DSKBFF 


6604 


10526 


R 


741200 


A 




SWA 




6605 


10527 


R 


611311 


R 




JNP 


GEXIT 


6606 


10530 


R 


07 4105 


E 




DAC* 


GTMBUF 


6607 


10531 


R 


040172 


R 




DAC 


WRTSW 


6608 


10532 


R 


160704 


R 




DZM* 


DSKBFF 


6609 


10533 


R 


750000 


A 




CLA 




6610 


10534 


R 


611225 


R 




JMP 


GTHRED 


6611 


10535 


p^ 


231326 


R 


BACKSA 


LAC* 


GIMDEX 


6612 


10536 


R 


745100 


A 




SPA'CLL 




6613 


10537 


R 


610603 


R 




JMP 


GHIGHO 


6614 










/ 






6615 


10540 


R 


200017 


A 


GBACK6 


LAC 


R17 


6616 


10541 


R 


551322 


R 


GBACK7 


SAD 


GEND 


6617 


10542 


R 


610651 


R 




JMP 


GCONT 


5618 


10543 


R 


220017 


A 




LAC* 


R17 


6619 


105 44 


R 


652000 


A 




LMQ 




6620 


10545 


R 


513657 


R 




AND 


(77777 


6621 


10546 


R 


571326 


R 




SAD* 


GINDEX 


6622 


10547 


R 


610700 


R 




JMP 


GMEXT 


6623 


10550 


R 


641002 


A 




LACQ 




6624 


10551 


R 


745110 


A 




SPAiRCL 




6625 


10552 


R 


440017 


A 




ISZ 


R17 


6626 


10553 


R 


745110 


A 




SPAiRCL 




6627 


10554 


R 


440017 


A 




ISZ 


R17 


6628 


10555 


R 


744100 


A 




SNAICLL 




6629 


10556 


R 


610540 


R 




JHP 


GBACK6 


6630 


10557 


R 


220017 


A 




LAC* 


R17 


6631 


10560 


R 


653606 


A 




LM0iCLACiLLSt6 


6632 


10561 


R 


300017 


A 




ADD 


R17 


66 3 3 


10562 


R 


040017 


A 




DAC 


R17 


6634 


10563 


R 


610541 


R 




jwp 


G3ACK7 


6635 










/ 






6636 












.IFPNZ 


FMOMEY 


6637 


10564 


R 


652000 


A 


FPERRC 


LMQ 




663« 


10565 


R 


750030 


A 




CLAiXAC 




6639 


10566 


P 


54021 1 


p 




SAD 


VALF 


6640 


10567 


R 


00 0017 


A 




ERR 17 




66 41 


10570 


R 


641002 


A 




LACQ 




664? 


10571 


w 


610415 


R 




J^^P 


G3ACK1 


6643 












.EN DC 




6644 










/ 






6645 










/BLOCK 


READ HAS 


OFFS 


6646 










/ 







/END OF VALID DATA IM BLOCK 

/YES 

/FETCH SUBSCRIPT 

/SPECIFY IT AS SUBSCRIPT TO LOOK FOR 

/RESET R17 

/RETUR;^ TO NOR^MAL PROCESSING 

/ANY CHAINED BLOCKS? 

/no, DONE 

/YES, PREPARE TO DETACH ALL THOSE THAT FOLLO^' 

/NAKE SURE THIS BLOCK IS UPDATED 

/NOW THIS IS 0*^LY BLK AT LEVEL 

/GO DELETE REST OF LEVEL 
/GET SUBSCRIPT OUT OF STACK 

/SH COMPLEMENTS LAST SUBSCRIPT IN STACK *12JAH9* 



/END OF VALID DATA IM BCiOCK ? 

/Em OF DATA, NO I^ATCH IN PRESENT BLOCK 

/GET SUBSCRIPT FRO^ BLOCK 



/COMPARE 

/NATCH in PRESSiMT BLOCK 

/GET BACK SUBSCRIPT aIITH PMS BITS,.. 

/...AND SKIP OVER POINTER AMD/OR VALUE 



/STRING PRESENT IF MINUS 



/ADD OFFSET TO POINTER 



/GO LOOK AT ^lEXT SUB 



/FLOATING POINT? 
/YES, P.P. CANNOT BE PUT IN GLOBAL 
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6647 


10572 


R 


140172 


R 


GOOFF 


DZM 


iAiRTSW 


6648 


1057 3 


R 


211327 


R 




LAC 


GLFNCT 


6649 


10574 


R 


740200 


A 




SZA 




6650 


10575 


R 


000021 


A 




ERR21 




6651 


10576 


R 


160704 


R 




OZM* 


DSKBFF 


6652 


10577 


R 


610651 


R 




JNP 


GCOMT 


6653 










/ 






6654 










/ 






6655 










/NAKED 


REFERENCE 


6656 










/ 






6657 


10600 


R 


451326 


R 


GNOSYM 


ISZ 


G INDEX 


6&5B 


10601 


R 


1 U426 


R 




JHS 


GLSET 


6659 


10602 


R 


610505 


R 




JMP 


GBACK5 


6660 










/ 






6661 










/ 






6662 










/SEARCH 


BLOCK IN CORE F 


6663 










/ 






5664 


10603 


R 


231326 


R 


GHIGHO 


LAC=t= 


GINDFX 


6665 


10604 


R 


553662 


R 




SAD 


(400000 


6666 


10605 


R 


750000 


A 




CLA 




6667 


10606 


P 


040016 


A 




DAC 


R16 


6668 


10607 


R 


200017 


A 


GHIGH 


LAC 


R17 


6669 


10610 


R 


551322 


R 


GHIGHl 


SAD 


GEND 


6670 


10611 


R 


610651 


R 




J MP 


GCONT 


6671 


10612 


R 


220017 


A 




LAC')' 


R17 


6672 


10613 


R 


652000 


A 




Lf^Q 




6673 


10614 


R 


513657 


R 




AND 


(77777 


6674 


10615 


R 


340016 


A 




TAD 


R16 


6675 


10616 


R 


740101 


A 




SMAiCI^A 




6676 


10517 


R 


610634 


R 




J MP 


GHIGH3 


6677 


10620 


R 


641002 


A 


GH1GH2 


LACQ 




6678 


10621 


R 


745110 


A 




SPA'RCL 




6679 


10622 


R 


440017 


A 




ISZ 


R17 


6680 


10623 


R 


745110 


A 




SPAIRCL 




6681 


10624 


R 


440017 


A 




ISZ 


R17 


6682 


10625 


R 


744100 


A 




SMAICLL 




6683 


10626 


R 


610607 


R 




JMP 


GHIGH 


6684 


10627 


R 


220017 


A 




LAC* 


R17 


6685 


J0630 


R 


653606 


A 




LMQlCLAC!LLS+6 


6686 


10631 


» 


300017 


A 




ADD 


R17 


6687 


10632 


R 


040017 


A 




DAC 


R17 


6688 


10633 


R 


610610 


R 




J^'P 


GHIGHl 


6689 










/ 






6690 


10634 


R 


553741 


R 


GH1GH3 


SAD 


(-1 


6691 


10635 


R 


610645 


R 




JMP 


GHIGH4 


6692 


10636 


R 


340016 


A 




TAD 


R16 


6693 


10637 


R 


300217 


R 




ADD 


ACTEMP 


6694 


10640 


p 


741101 


Jk 




SPAICN'A 




6695 


10641 


R 


610620 


R 




JMP 


GHIGH2 


6696 


10642 


R 


300217 


R 




ADO 


ACTEMP 


6697 


10643 


R 


040217 


R 




DAC 


ACTEMP 


6698 


10644 


R 


610620 


R 




JMP 


GHIGH2 



/DOM'T WRITE BLOCK 
/CHECK FUNCTION 

/PUT OR KILL " "lODSK" 
/ZORCH CONTINUATION POINTER 
/TREAT AS LAST BLOCK IM CHAIN 



FOR -^JEXT HIGHER SUBSCRIPT ($H) 

/FETCH LAST SUBSCRIPT? =t=12JAH9* 

/§H ^NAT VERY FIRST SUBSCRIPT (EVEN IF ZERO)? *12JAH9* 

/YES *12JAH94' 

/*12JAH9* 



/*\2JhH9t 



/SKIP 10 NEXT SUBSCRIPT 



/SUBSCRIPT EXACTLY ,D1 HIGHER? *12JAH9* 
/♦12JAH9* 



/NEXT HIGHEST SO FAR 
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6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
5711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 
6732 
6733 
6734 
67 35 
6736 
6737 
67 3 8 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 



10645 R 200016 A 

10646 R 740031 A 
10547 R 040217 R 
10650 R 611304 R 



10651 R 220704 R 

10652 R 751201 A 

10653 R 610672 R 



GH1GH4 LAC R16 /*12JAH9t 

CHA'IAC 

DAC ACTEMp 

jm GXTSAD 

/ 
/ 

/HAVKN'T FOUMD SUBSCRIPT YET - COl^TIWUE ALONG CHAIN IF POSSISLE 
/NAKED REFfc^RRNCKS SEARCH FIRST THE BLOCK IN CORE, TH£M 
/FOLLOWS THE CHAIN, THIS TAKES ADVANTAGE OF THE CHAIM SPACING. 
/ 
GCONT LAC* OSKBFF 

SNAlCLAiC^^A /IS THERE A COMTINUATIDM BLOCK? 

JMP NKDCHK /MO, REQUESTED SUBSCRIPT HAS NOT BEEN FOUND 

/ 

/YES - GET -GE^O IH AC 

/NON HAVE -(WORDS USED IN BLOCK) 

/COf^PARE TO LEAST USED SO FAR 

/GHI = iviEANS ALWAYS ^Ai^I THIS BLOCK 

/*12JAH12* 

/THIS BLOCK HAS MORE SPACE 

/,. .SO RE^IEMBSR HOW MUCH... 

/...AND WHICH BLOCK IT IS 
/*12JAH12* GO GET COMT BLK 

/CHK FOR NAKED ACCESS' 



HK IF NAKED 



10654 


R 


251322 


R 




XOR 


GE^^O 


10655 


R 


300704 


R 




ADD 


DSKBFF 


10656 


R 


652004 


A 




L^QiCNO 




10657 


R 


300252 


R 




ADD 


GHI 


10660 


R 


751100 


A 




SPAiCLA 




10661 


R 


200252 


R 




LAC 


GHI 


10662 


R 


740200 


A 




SZA 




10663 


P 


610670 


R 




JMP 


GCOi%^Tl 


10664 


R 


641002 


A 




LACQ 




10665 


R 


040252 


R 




DAC 


GHI 


10666 


R 


200171 


R 




LAC 


OBPNT 


1 0667 


R 


040251 


R 




DAC 


GBLKHI 


10670 


R 


220704 


R 


GCONTl 


LAC* 


DSKBFF 


1 6 7 1 


R 


610504 


R 


/ 
NKDCHK 


JMP 


GBACK4 


10672 


R 


220166 


R 


LAC* 


SPOINT 


10673 


R 


740201 


A 




SZAICMA 




10574 


R 


611130 


R 




JMP 


GUMD5 


10675 


R 


060166 


R 




DAC* 


SPOIMT 


10676 


« 


200253 


R 




LAC 


GHEAD 


10677 


R 


610475 


R 


/ 

/FOUND 

/ 

GNEXT 


JMP 


G8ACK3 










SUBSCRIPT AT THIS LEVEL. 


10700 


R 


211326 


R 


LAC 


GIMDEX 


10701 


R 


551321 


R 




SAO 


GDOHF 


10702 


R 


610712 


R 




J^P 


GFOUND 


10703 


R 


641002 


A 




LACO 




10704 


R 


740100 


A 




S^^A 




10705 


R 


611142 


R 




JMP 


GiJN!D6 


10706 


R 


200253 


R 




LAC 


GHEAD 


10707 


R 


040255 


R 




DAC 


GHDOLD 


10 710 


P 


220017 


A 




LAC* 


R17 


10711 


P 


610473 


R 




JMP 
.EJECT 


G8ACK2 



/NOT MAKED SO DIDN'T FIMO THE SUBSCRIPT 

/w'AS MAKED ACCESS, SET NA-ME TO -1 SO THAT f^EXT TINE THRU EXITS 

/GET HEAD BLOCK OF THIS LEVEL 

/AND BEGIN SEARCH AT TOP 



/^ORE SUBS? 

/NO mRE SUBSCRIPTS IN THE STACK 

/POIMTER PRESENT? 

/WO POINTER TO r^EXT LEVEL 

/SAVE HEAD ADDRESS AMD DROP A LEVEL 



PAGE 173 MU^PS 100 GLOBAL VARIABLE ROUTCVES 

674B /FOUND FINAL SUBSCRIPT, ACTION: 

6749 / GET OOf^E, EXIT WITH MQ, R15, AND R17 SET UP, 

6750 / PUT SAVE POINTER (IF IT EXISTS) AMD SUBSCRIPT (IM STACK). 

6751 / DELETE OLD DATA BY COPYING REST OF BLOCK UP OVER IT. FIMD 

6752 / SPACE (NOT NEC. IN THIS BLOCK) AND COPY IM SUB, POINTER, 

6753 / AMD NEw DATA (FROM VAL OR BUFF2). 

6754 / KILL SA'ME AS PUT, RUT GOES TO GTHREO INSTEAD OF ADDING DATA. 
675 5 / 

6756 10712 R 211327 R GFOU?^D LAC GLFNCT 

6757 1.0713 R 755201 A SNAlCLLiCLC 

675H 10714 R 744002 A STL /YES 

6759 10715 R 340017 A TAD R17 /COMPLIMENTS LI^^K 

6760 10716 R 040016 A DAC R16 /OECREMEMT POI-MTER AMD SAVE 

6761 10717 R 040015 A DAC R15 

6762 10720 R 641002 A LACQ 

6763 10721 R 740400 A SNL 

6764 10722 R 611075 R JMP GFND7 /GET - DONE 

6765 10723 R 514011 R AND (477777 /SUBSCRIPT WITH P BIT 

6766 10724 R 071326 R DAC* GINDEX /FORGET MS BITS 

6767 10725 R 751100 A SPAiCLA /SAVE 0... 

676S 10726 R 220017 A LAC* R17 /...OR POI^MTER... 

6769 10727 R 074105 E DAC* GT^IBUF /...I^J FIRST WORD OF GTMBUF 

6770 10730 » 641002 A LACO /aIHQLE SUBSCRIPT AGAIM 

6771 10731 R 742010 A RTL /M BIT IN LIMK 

6772 10732 R 741410 A SZLIRAL 

6773 10733 P 611001 R JHP GFNOOA /*12JAH11* IS NIUM.ERIC 

6774 10734 R 744400 A SNLICLL 

6775 10735 R 610773 R JMP GF'm'DO /*12JAH11* POI^JTER QHhi 

6776 10736 R 220017 A LAC* R17 /S - GET OFFSET 

6777 10737 R 653606 A LMQ iCLAC i LLS^-e 

677R 10740 R 051325 R DAC GMOWDS /SAVE OFFSET 

6779 10741 R 211327 R LAC GLFMCT 

67«0 10742 R 751101 A SPAiCLA'CMA /KILL? 

6781 10743 R 610770 R JMP GFNOA /YES, iMO SHORT CUT 

67P2 10744 R 540207 R SAD VAL /IS REPLACEMENT STR OR MUM? 

6783 10745 R 610747 R JMP GFNDB /STRT^^G 

67B4 10746 R 610770 R JHP GFNDA /INSERT NUMERIC VALUE 

6785 10747 R 220133 R GFNDB LAC* 81JFF2 /FETCH REPLACEMENT 

6786 10750 R 653606 A LHQ ! CLAC i LLS+6 /OFFSET 

6787 10751 P 551325 R SAD GNON'OS /SAME AS OLD OFFSET? 
67PB 10752 R 741001 A SKPIC^A /YES, SET UP COUNTER 
6789 10753 R 610770 R Ji^P GFNDA /NO, TAKE 'LONG' CUT 



JMP 


GFNOA 


SAD 


VAL 


JMP 


GFNDB 


JHP 


GFNDA 


LAC* 


81JFF2 


LHQ!CLACiLLS+6 


SAD 


GNOv^DS 


SKPIC^A 




J!V|P 


GFNDA 


DAC 


GMOWDS 


LAi^: 


"1 


TAD 


BUFF2 


DAC 


R16 


LAW 


-1 


TAD 


R17 


DAC 


R17 


LAC* 


R16 


DAC* 


R17 


IS2 


GMO^DS 



6790 10754 R 051325 R 

6791 10755 R 777777 A LA^^: -1 /BACKUP 

6792 10756 R 340133 R TAD 8UFF2 /REPLACEMENT PTR 

6793 10757 R 040016 A 

6794 10760 R 777777 A LAW -1 /BACKUP 

6795 10761 R 340017 A TAD R17 /OVERLAY PTR 

6796 10762 R 040017 A 

6797 10763 R 220016 A LAC* R16 /IMSERT NEW STRING 
679R 10764 R 060017 A 
6799 10765 R 451325 R 
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6B00 
6801 
680 '/> 
6803 
6804 
6805 
6806 
6807 
680 8 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
682 3 
6824 
6825 
6826 
6827 
6828 
6829 
6830 
6831 
6^32 
68 3 3 
68 34 
6835 
6836 
6837 
6838 
6839 
6840 
6841 
6842 
6843 
6844 
6845 
6«46 
6847 
6848 
6849 
6850 
6851 



MUMPS 


100 


GLD8AL VARIABLE: ROUTINGS 


10766 


R 


6l07b3 


R 




JMP 


• -3 


10767 


R 


611013 


R 




Jf^P 


GFMDOB 


10770 


R 


211325 


R 


GFNOA 


LAC 


G'^Oi/^DS 


10771 


R 


300017 


A 




ADD 


R17 


10772 


R 


040017 


A 




DAC 


R17 


10773 


R 


200017 


A 


GFNOO 


LAC 


R17 


10774 


R 


551322 


R 




SAD 


GEMO 


10775 


R 


611016 


R 




JMP 


GFMDl 


10776 


R 


220017 


A 




LAC* 


R17 


10777 


R 


060016 


A 




DACI' 


R16 


tiooo 


R 


610773 


R 


/ 

GPNOOA 


JM,P 


GFMDO 


110 5 


R 


440017 


A 


ISZ 


R17 


11002 


R 


211327 


R 




LAC 


GLFMCT 


1 1003 


R 


751101 


A 




SPAiCLA 


ICMA 


1 1004 


R 


610773 


R 




JMP 


GFNOO 


1 1005 


R 


540207 


R 




SAD 


VAL 


11006 


R 


610773 


R 




JMP 


GFMDO 


11007 


R 


340017 


A 




TAD 


R17 


11010 


R 


040017 


A 




DAC 


R17 


11011 


R 


200207 


R 




LAC 


VAL 


11012 


R 


060017 


A 




DAC* 


R17 


11013 


R 


777777 


A 


GFMDOe 


LAK? 


-1 


11014 


R 


040172 


R 




DAC 


v^iRTSW 


11015 


R 


611054 


R 


/ 

GFNDl 


JMP 


GFND4A 


1 1016 


R 


200016 


A 


LAC 


R16 


11017 


R 


111412 


R 




JMS 


GOFF 


110 2 


R 


211327 


R 




LAC 


GLFMCT 


1 1021 


R 


755100 


A 




SPAICLL 


ICLA 


11022 


R 


611225 


R 




JMP 


GTHRFD 


11023 


R 


213705 


R 


GFMD2 


LAC 


(2 


11024 


R 


051325 


R 




DAC 


G^^IOWDS 


1 1025 


R 


750001 


A 




CLAiCHA 




11026 


R 


540207 


R 




SAD 


VAL 


11027 


R 


611057 


R 




JMP 


GFND5 


11030 


R 


213663 


R 




LAC 


(200000 


11031 


R 


271326 


R 


GFND3 


XOR* 


GIMDEX 


11032 


R 


071326 


R 




DAC* 


GINOFCX 


110 3 3 


R 


741100 


A 




SPA 




11034 


R 


451325 


R 




ISZ 


Gnoms 


1 1035 


R 


111436 


R 




JHS 


GSPACF 


11036 


R 


200017 


A 




LAC 


R17 


11037 


R 


040015 


A 




DAC 


R15 


11040 


p. 


231326 


R 




LAC* 


GIMDEX 


11041 


R 


060017 


A 




DAC* 


R17 


11042 


R 


740100 


h 




SMA 




11043 


R 


611046 


R 




JMP 


GFMD3A 


11044 


R 


234105 


E 




LAC* 


GT'^IBUF 


11045 


R 


060017 


A 




DAC* 


R17 


11046 


R 


200207 


R 


GFND3A 


LAC 


VAL 


11047 


R 


553741 


R 




SAD 


illllll 



/RETRIEVE OFFSET 

/COPY EVERYTHING UP OVER OLD 
/DOME 



/*12JAH11* 

/*12JAH11* 

/KILL? 

/YES, MO SHORTCUT 

/STRII\JG OR K'UNERIC? 

/STRING 

/NUMERIC, BACKUP PT 

/INSERT NEW ^U^ERIC VALUE 



/MAKE SURE BLOCK WRITTEN 



/NEW OFFSET 

/FUN'CTION? 

/KILL 

/PUT 

/NEED AT LEAST 2 NORDS 

/DATA TYPE? 

/STRING 

/NUMERIC 

/ADD DATA TYPE BIT ( Ni OR S) TO SUB... 

/...AND STORE IM STACK 

/I MORE FOR POINTER 
/FIND SPACE 



/PUT IN SUBSCRIPT 

/*12JAH12* 

/ADD POINTER IF IT EXISTS 

/*12JAH12* 
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NUMPS 


100 


G 


L3BAL VARIABLE 


ROUTINES 


6852 


11050 


R 


611065 


R 




JNP 




GFND6 


6853 


11051 


R 


060017 


A. 




DAC^ 




R17 


6854 


1 1052 


R 


200017 


h 


GFND4 


LAC 




R17 


6^55 


11053 


R 


111412 


R 




JMS 




GOFF 


6B56 


11054 


R 


231326 


R 


GFMD4A 


LAC* 




GinOEX 


6857 


11055 


R 


652000 


A 




LMO 






5858 


11056 


R 


6 1 1 3 1 1 


R 




JMP 




GEXIT 


6B5Q 










/ 








6860 


U057 


R 


220133 


R 


GFND5 


LAC* 




6aFF2 


6861 


11060 


R 


653606 


A 




LMQi 


CLAC!LLS+6 


6862 


11061 


R 


311325 


R 




ADO 




G^IO'^flfDS 


6863 


11062 


R 


051325 


R 




OAC 




GNOWDS 


6854 


11063 


R 


213664 


R 




LAC 




(100000 


6865 


11064 


R 


6110 31 


R 




JHP 




GFMD3 


6866 










/ 








6867 


11065 


R 


340133 


R 


GFN06 


TAD 




8UFF2 


6868 


1 1066 


R 


040016 


A 




OAC 




R16 


6869 


1 1067 


R 


220016 


A 




LAC* 




R16 


6870 


11070 


R 


060017 


A 




DAC* 




R17 


6871 


U071 


R 


513702 


R 




And 




(77 


6872 


1 1072 


P 


740200 


A 




SZA 






687? 


11073 


R 


611067 


R 




JMP 




• -4 


6874 


11074 


R 


611052 


R 




JMP 




GFND4 


6875 










/ 








6876 


11075 


R 


743110 


A 


GFMD? 


SPAi 


RTL 




68 7 7 


110 7 6 


9. 


440017 


A 




ISZ 




R17 


6878 


11077 


R 


740502 


A 




SiMLI 


SMA 


ICNL 


6879 


1 1 i 


R 


670004 


A 




CLOi 


CNO 


IGAS 


6880 


11101 


P 


611311 


R 




JMP 




GEXIT 


6881 












.EJECT 





/STBIHG 

/mimRic 

/HE^ OFFSET 

/RETURN iNlTH SU8 IN MQ 

/STRING IN BUFF2 



/UPDATE NO. OF .^QRDS MSEDED 
/S BIT 



/COPY STRI^JG IMTO BLOCK 



/LAST CHAR OF STRING ? 

/NO. SO GET ANOTHER ^ORO 
/YES 

/CHECK FOR POINTER, SET UP LINK 



/-O IN m, CLEAR LINK 

/LEAVE '/JITH LINK, HO, R15, AND R17 SET 



PAGE 176 Muwps 100 GLG8AL VARIABLE ROUTI'MES 

6B82 /BUILD CHAIN, GQ TQ GPND2 TO ADD DATA, 

6893 / 

6884 11102 R 040253 R GUND2 DAC GHEAD 

6885 11103 R 140252 R DZM GHl 

6886 11104 R 111331 R JMS GOISK /READ FREE LIST BLOCK 

6887 11105 R 160704 R DZM* 0SK6FF /MO CO^^T BLOCK 

6888 11106 R 200705 R LAC GBi^D2 

6889 11107 R 111412 R JMS GGFF /OFFSET 

6890 11110 R 451326 R ISZ GINDEX 

6891 11111 R 211326 R LAC GIMOEX 

6892 11112 R 551321 R SAD GDONE /LAST SU8? 

6893 11113 R 611023 R JMP GPMD2 /YES - GO STORE DATA 

6894 11114 R 231326 R GLIMD3 LAC'f' GIMDEX /NO - ADD ANOTHER BLOCK 

6895 11115 R 253662 R XOR (400000 

6896 11116 R 060017 A DAC* R17 /ADD SUB *^ITH P BIT 

6897 11117 R 134103 E J^S* GFREE /=*=12JAH12* MO - ADD A!»J3THER BLK 

6898 11120 R 051323 R DAC GPOINT /SAVE BLOCK ADDRESS OF ^JEWLY ALLOCATED BLOCK 

6899 11121 R 060017 A DAC* R17 /POINTER TQ MEw BLOCK 4 LATER 

6900 11122 R 200017 A GUND4 LAC R17 

6901 11123 H 111412 R Ji^iS GOFF 
690? ni?4 R 200253 R LAC GHEAD 

6903 11125 R 040255 R DAC GHDOLD /SAVE HEAD ADDRESS 

6904 11126 R 211323 R LAC GPOINT /ADDRESS OF NEW BLOCK 
6 90 5 11127 R 611102 R JMP GUMD2 

6906 / 

6907 / 

6908 /UNOEFIMED SUBSCRIPT AT LATER LEVEL. FI^ID SPACE FOR SUBSCRIPT AMD 

6909 /AND POI-^TER, GO ADD THEM, 

6910 / 

6911 11130 R 211327 R GUND5 LAC GLF^nICT 

6912 11131 R 745300 A SPAiSNAiCLL /PUT? 

6913 11132 R 611304 R JMP GXTBAD /NO 

6914 11133 R 211326 R LAC GIMDEX 

6915 11134 R 551321 R SAD GDOME 

6916 11135 R 611023 R jm GFMD2 /DEFINE FIMAL VALUE 

6917 11136 R 213705 R LAC (2 

6918 11137 R 051325 R DAC GNO'^DS /2 ^^'DS FOR PTR 

6919 11140 R 111436 R JMS GSPACE 

6920 11141 R 611114 R JMP GUND3 /GO ADD ANOTHER BLOCK 

6921 / 

6922 / 

6923 /NO POINTER TO NEXT LEVEL (SUB IS THERE), COPY SUB AI^^D DATA INTO 

6924 /GTNBUF, ADD POI?MTER (TO HEvi BLOCK), FIND SPACE AND COPY BACK, 

6925 / 

6926 11142 R 253662 R GUMD6 XOR (400000 

6927 11143 R 074105 E DAC* GTf^lBUF /STORE SUB WITH P BIT 
692« 11144 R 211327 R LAC GLFf^CT 

6Q2Q 11145 » 755301 A SPA ! SNA !CLC ! CLL /PUT? 

6930 11146 R 611304 R JMP GXTBAD /NO 

6931 11147 R 340017 A TAD R17 /COPY SUB AND VALUE I^iTO GTMBUF 

6932 11150 R 051324 R DAC GTEMP 

6933 11151 R 214106 E LAC GTM8.1 



PAGE ill 


MUMPS 


100 


V3 


L33AL VARIABLE ROyXI^JES 


6934 


11152 


R 


040016 


A 


DAC 


R16 


6935 


11153 


R 


234105 


E 


LAC* 


GT^^BUF 


6936 


11154 


H 


742010 


A 


RTL 




6937 


11155 


R 


744400 


A 


SNLiCLL 




69 3 8 


11156 


p 


611217 


R 


JHP 


GUfNl09 


5939 


11157 


R 


220017 


A 


LAC^ 


R17 


6940 


1116 


R 


060016 


A 


DAC* 


R16 


6941 


11161 


R 


214105 


E 


GUN07 LAC 


GTMBUF 


6942 


11162 


R 


740031 


A 


TCA 




6943 


11163 


R 


300016 


A 


ADD 


R16 


6944 


1116 4 


R 


051325 


R 


DAC 


G^OWDS 


6945 


1 1165 


R 


211324 


R 


r n r" 


GTE^iP 


6946 


11166 


R 


040016 


A 


DAC 


R16 


6947 


11167 


R 


200017 


A 


LAC 


R17 


6949 


11170 


R 


551322 


R 


SAD 


GEND 


694Ci 


11 171 


R 


611175 


R 


JMP 


GUND8 


6950 


11172 


R 


220017 


A 


LAC* 


R17 


6951 


1117 3 


R 


060016 


A 


DAC* 


R16 


695:? 


11174 


R 


611167 


R 


JMP 


.-5 


6953 










/ 




6954 


11 175 


R 


200016 


A 


GUND8 LAC 


R16 


6955 


11176 


R 


111412 


R 


JMS 


GOFF 


6956 


11177 


R 


111436 


R 


JMS 


QSPhCK 


6957 


11200 


R 


134103 


E 


JMS* 


GFRER 


695B 


11201 


P 


051323 


R 


DAC 


GPOI'MT 


6959 


11202 


Q 


074106 


cr 


DAC* 


GTMB,1 


6960 


11203 


R 


211325 


R 


LAC 


GNOWDS 


6961 


11204 


R 


740001 


a 


C^4A 




6962 


11205 


R 


051324 


R 


DAC 


GTEMP 


6963 


11206 


R 


451324 


R 


ISZ 


GTEMP 


6964 


11207 


R 


777777 


A 


LA'// 


-1 


6965 


11210 


R 


354105 


e 


TAD 


GTMBflF 


6966 


11211 


R 


040016 


A 


OAC 


R16 


6967 


11212 


R 


220016 


A 


LAC* 


R16 


6968 


11213 


R 


060017 


A 


DAC* 


R17 


6969 


11214 


R 


451324 


R 


ISZ 


GTEMP 


6970 


11215 


R 


611212 


R 


JMP 


."3 


6971 


11216 


R 


611122 


R 


JMP 


GUMD4 


6972 










/ 




6973 


11217 


R 


220017 


h 


GUWD9 LAC* 


Rt7 


6974 


11220 


R 


060016 


k 


DAC* 


R16 


6975 


11221 


R 


513702 


R 


AND 


(77 


6976 


11222 


R 


740200 


A 


SZA 




6977 


1 1223 


R 


611217 


R 


JMP 


• -4 


6978 


11224 


R 


611161 


Q 


JMP 


GUND7 


6979 










.EJECT 





/STRING 
/NUNERi; 



/SPACE NEEDED 

/COPY REST OF 8L0CK 3/ER DELETED DATA 



/OFFSET 

/FIND BLOCK ^ITH SPACE IN IT 
/*t2JAH12* & A ^EW 8LK FOR LOWER LEVEL 
/SAVE BLOCK ADDRESS 
GTMB,1 / POIi^iTER in GTMBUF IMAGE 



/WORD COUMTER 

/COPY INTO BLOCK (NOAf HAS POINTER) 

/GO ADD LEVELS AS NECESSARY 
/COPY STRI'^G I^TO GTM9UFF 
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6980 
6981 
6982 

698 3 
6984 
6985 
6986 
6987 
6988 
6939 
6990 
6991 
6992 

699 3 
6994 
6995 
6996 
6997 
6998 
6999 
7 000 
7001 
7002 
7003 
7 00 4 
7005 
7006 

700 7 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7 02 7 
7028 
7029 
7030 
7031 



MU^PS 


100 


G 


L08AL 


VARIABLE, ROUTIf^es 










/KILL 


STUFF 














/ 


1) 


NO LOWER 


LEVEL - QUIT. 










/ 


2) 


LOS^^ER 


LEVEL JOINED - OE 










/ 




TO GARBAGE TREE. 










/ 


3) 


LOWER 


LEVEL NOT JOINEO 










/ 
/ 

GTf- 




TREE. 






13225 


R 


574105 


E 


1REU 


SAD^ 




GTMBUF 


11226 


R 


611305 


R 




' 


J MP 




GEXITO 


11227 


R 


234105 


E 






LAC* 




GTHBffF 


11230 


R 


043744 


R 






DAC 




STORl 


11231 


R 


214100 


S 






LAC 




GBUFFl 


11232 


R 


740030 


A 






lAC 






11233 


P 


044340 


R 






DAC 




PLACE 


11234 


R 


214100 


E 






LAC 




GBUFFl 


11235 


R 


134060 


E 






JMS=^ 




DSKRDE 


1 1236 


R 


200247 


R 






LAC 




GUMIT 


11237 


R 


203744 


R 






LAC 




STORl 


11240 


R 


224340 


R 






LAC* 




PLACE 


11241 


R 


513646 


R 






AMD 




(777700 


11242 


R 


745300 


A 






SPA'SNA 


•CLL 


11243 


P 


611262 


R 






J 'MP 




GTrtR3 


11244 


R 


224340 


R 






LAC* 




PLACE 


11245 


R 


353646 


R 






TAD 




(777700 


11246 


R 


064340 


R 






DAC* 




PLACE 


11247 


R 


214100 


E 






LAC 




G9UFF1 


11250 


R 


134061 


E 






JMS* 




DSKWRT 


11251 


H 


200247 


R 






LAC 




GUMIT 


11252 


R 


20 37 4 4 


R 






LAC 




STORl 


11253 


R 


611305 


R 


/ 




JMP 




GEXITO 


11254 


P 


234100 


E 


GTHR2 


LAC* 




GBUFFl 


1 1255 


R 


043744 


R 






OAC 




STORl 


11256 


R 


214100 


E 






LAC 




GBUFFl 


11257 


R 


134060 


e 






JNS* 




DSKRDF 


11260 


P 


200247 


R 






LAC 




GUNIT 


11261 


R 


203744 


R 






LAC 




STORl 


11262 


R 


214101 


E 


GTHR3 


LAC 




GCHATI^ 


11263 


R 


340247 


R 






TAO 




GUNIT 


11264 


P 


051330 


R 






OAC 




GCH 


11265 


R 


231330 


R 






LAC* 




GCH 


11266 


R 


741200 


A 






SNA 






1 1267 


R 


611301 


R 






Jf^P 




GTHR4 


11270 


R 


234100 


E 






LAC* 




GBUFFl 


11271 


p 


744200 


A 






SZAiCLL 




1 1272 


R 


611254 


R 






JMP 




GTHR2 


1127 3 


R 


2313 30 


R 






LAC* 




GCH 


11274 


p 


074100 


E 






DAC* 




GBUFFl 


11275 


R 


214100 


E 






LAC 




GBUFFl 


11276 


R 


134061 


E 






JHS* 




OSKwPT 


11277 


R 


200247 


R 






LAC 




GU^IT 


11300 


R 


203744 


R 






LAC 




STORl 



REMEMT JOIM COUNTER, BUT DON'T ADD 
PUT KILLED TREE AT TOP OF GARBAGE 

/mST ARRIVE WITH IM AC 

/O MEANS MD POINTER - KILL IS DOME 

/SAVE POIMTER 

/SECOND WORD OF BUFFER 

/*12JAH12* 

/READ POINTERED BLOCK 
/SECOND ^ORD 
/CHECK POIMTER 

/CAN KILL IT 

/JOI?^ - DON'T PUT on GARBAGE TREE 

/DECREMEMT JOIM COUNTER 

/*12JAH12* WRITS BACK BLK 

/hHO LEAVE 

/GET MEXT BLOCK 
/*12JAH12* 

/AMY GARBAGE? 

/GARB CHAI^i FOR THIS SUPER UNIT 

/NO - JUST ADD CHAIN TO: GCHAIN 
/CONT BLOCK? 

/YES 

/ADD GARBAGE TREE TO EM9 

/*12JAH12* 

/WRITE OUT WITH NEW CHAIN POINTER 
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LOBAL VAKIABLe; ROUTIt^JSS 


7032 


1.1301 


R 


234105 


e 


GTHR4 


LAC* 


GTMBUF 


7033 


11302 


R 


071330 


R 




DAC* 


GCH 


7034 


11303 


R 


134057 


E 




JMS=>= 


DMPOLD 


7035 


1 1304 


R 


650000 


A 


GXTBAD 


CLQ 




7036 


11305 


R 


200272 


R 


GEXirO 


LAC 


GLOBAL 


7037 


11306 


R 


513657 


R 




AND 


(77777 


703B 


11307 


R 


554010 


R 




SAD 


CGKILl,4 


7039 


11310 


R 


610514 


R 




J'VIP 


BACK5B 


7040 


11311 


R 


211327 


R 


GEXIT 


LAC 


GLFNCT 


7 041 


1 1312 


R 


553705 


R 




SAD 


(2 


7042 


11313 


R 


620272 


R 




JNP* 


GLOBAL 


7043 


11314 


R 


140577 


R 




DZM 


DSKACT 


7044 


11315 


R 


440652 


P 




ISZ 


SWAPSW 


7045 


1 1316 


R 


620272 


R 




JMP* 


GLOBAL 


7046 


U 3 1 7 


R 


101533 


R 




JMS 


HANG 


7047 


11320 


R 


620272 


R 




JMP* 


GLOBAL 


7048 










/ 






7049 


11321 


R 


000000 


A 


GDONE 







7050 


11322 


R 


000000 


A 


GENfD 







7051 


11323 


R 


000000 


A 


GPOIi^iT 







705? 


11324 


R 


000000 


A 


GTEMP 







7053 


11325 


R 


000000 


A 


GNOWDS 







7054 


11326 


R 


000000 


A 


GIMDEX 







7055 


11327 


o 


000000 


A 


GLFNCT 







7056 


11330 


R 


000000 


A 


GCH 







7057 












.EJECT 





/PUT ORIGINAL POINTER 

/...INTO GARBAGE POINTER 

/4=12JAH12* 

/UNSUCCESSFUL 'GETS' CG:^E HERE 

/UNSU8SCRIPTED KILL? 

/*12JAH12* 



/YES, GO KILL MEXT NODE 
/DON'T ALLOW S^^AP IF IN 

/JOIM HAS MORE TO DO 

/FREE DISK 

/TIWE SLICE UP? 

/NO 

/YES, LET OTHERS RUN 



JOIN 



/FUNCTION 
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7058 /SUBROUTINES FOR GLOBALS 

7059 / 

7060 /DISK READ SUBROUTINE FOR GLOBALS. CALL '^ITH OISK ADDRESS IN AC. 

7061 /WRITES OLD BUFFER IF NEC. BEFORE READING 
706? / 

7063 11331 ^- 000000 A GDISK 

7064 11332 ^ 040653 R DAC HBPHf 

7065 11333 R 641002 A LACQ 

7066 11334 H 051412 R DAC GOFF /SAVE MQ 

7067 11335 R 777775 A LAW -3 /TRY 3 TI,^ES OH CHKPNT ERRORS BEFORE GIVK^G UP 

7068 11336 R 051411 R DAC CHKCNT 

7069 11337 R 134102 E GDISK4 JMS^ GETNEW /*12JAni2=t= GET r^iEW BLK 

7070 11340 R 220705 ^ LAC* G3WD2 /2MD '^'ORD IN SLOCK 

7071 11341 R 513646 R A^D C777700 /CHECK POIMTER 

7072 11342 R 741200 A SNA 

7073 11343 R 611370 R JMP GDISK2 /NO JOIN COUNTER OR CHECK POIMTER 

7074 1 1344 R 740100 A SMA 

7075 11345 R 611405 R J'^P GDISK3 /POS MEAMS JOIiM COUNTER 

7076 11346 R 640503 A LPS 3 /MEG MEANS CHECK POINTER 

7077 11347 R 074103 E DAC* GFREE /*12JAH12=^ 

7078 11350 R 200253 R LAC GHEAD 

7079 11351 R 540171 R SAD OBPNT 

7080 11352 R 200255 R LAC GHDOLD 

7081 11353 R 274103 E XOR=^ GFREE /*12JAH121= COMPARE IT TO PROPER HEAD 8LK ADDR 
70R2 11354 R 514012 R AND (37770 /LEFT 11 BITS OF HEAD BLOCK ADDRESS 

7083 11355 R 741200 A SNA /O IF PERFECT MATCH 

7084 11356 R 611364 R JMP GDTSKl /OK 

7085 11357 R 440645 R iSZ DKCHK /INCREMENT CHKPNT COUNTER 

7086 11360 R 740000 A NOP 

7087 11361 R 451411 R ISZ CHKCNT 

708R 11362 R 611337 R JMP GDISK4 /TRY AGAIN 

70B9 11363 R 000024 A ERR24 /GIVE UP, "CHPMT" ERROR 

7090 11364 R 211412 R GDISKl LAC GOFF /RESTORE MQ 

7091 1 1365 R 652000 A LMQ 

7092 11366 R 111426 R JMS GLSET 

7093 11367 R 631331 P J^^P* GDISK 

7094 / 

7095 11370 R 211327 R GDISK2 LAC GLFMCT /BEFORE PvE UPDATE CHECKPOINT, MAKE SURE 

7096 11371 R 741200 A SNA /i^E'RE ALLOWED TO-'-IS THIS A "i^RITE" FU^^CTION? 

7097 11372 R 611364 R JHP GDISKl /NOT A "'WRITE»--MAY '^OT HAVE GLOBAL OPEN SO JUST GO Ai^AY. 
7099 11373 R 200253 R LAC GHEAD /YES, A "WRITE", SO ^E CA?^ SAFELY UPDATE IT. 

7099 11374 R 540171 R SAD 06PNT /WILL BE EQUAL IF FIRST BLOCK OF LEVEL 

7100 11375 R 200255 R LAC GHDOLD /GET CORRECT CHECK POIMTER VALUE 

7101 11376 R 640603 A LLS 3 

7102 11377 R 514006 R AND (377700 

7103 11400 R 253662 R XOR (400000 /LINE UP, MASK, OR IN C:,P. BIT 

7104 11401 H 260705 R XOR* GBwD2 /OR IM OFFSET 

7105 11402 R 060705 R DAC* GBW02 /STORE 

7106 11403 R 440172 R ISZ -VRTSW /ALi^MYS WRITE IF NEv^l BLK ADDED TO LEVEL 

7107 11404 P 611364 R JMP GDISKl 

7108 / 

7109 11405 R 211327 R GDISK3 LAC GLFMCT /JOINED BLOCK ENCOUNTERED 



PkGE 


1B1 


MlJHPS 


1 


\3 


L'JBAL 


VARlASLe: ROUTrNiES 


7 1 1 




3 1406 R 


553705 


R 






SAD (2 


7111 




11407 R 


000013 


A 






ERR13 


711? 










/ 






7113 




11410 R 


611364 


R 






JMP GDISKl 


7114 










/ 






7115 




11415 R 


000000 


A 


CHK 


CNT 





7116 














.EJECT 



/"GLOBE" - ATTEMPTED T3 00 ILLEGAL JOIN 

/OK 

/TRY 3 TIMES QiNj CHKP^J^ ERRORS 
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GLOBAL VkRlkQhE ROUTINES 



7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
712B 
7129 
7130 
7131 
71 32 
7 1 3 3 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 



/GOFF CALCULATES BLOCK OFFSET, RETURNS WITH R17 POTNTIMG. TO 
/LAST USED WORD IH BLOCK 



1 1412 


^ 


000000 


A 


/ 

GOFF 







11413 


R 


051322 


R 




DAC 


GENO 


11414 


R 


040017 


a 




DAC 


R17 


11415 


R 


200704 


R 




LAC 


OSKBFF 


11416 


R 


744001 


A 




C^^AiCLL 




11*117 


R 


311322 


P 




ADD 


GEND 


11420 


R 


040172 


R 


/ 


DAC 


v-^RTSl'J 


11421 


R 


220705 


R 


LAC* 


GB'^D2 


11422 


R 


513646 


R 




AMD 


(777700 


11423 


R 


300172 


R 




ADO 


i^RTSl'^ 


11424 


R 


060705 


R 




DAC* 


GBWD2 


11425 


R 


631412 


R 




JMP'^ 


GOFF 



/WRTSNT SET .^EAMS THERE'S SOMETHING HEH 



/OFFSET ^ILL EQUAL 1 IF MEN GLOBAL 
/i/^RTS^T IS OFFSET 



11426 
1 1427 
11430 
11431 
11432 
11433 
11434 
11435 



000000 
200705 
040017 
220705 
513702 
30 7 04 
051322 
63142 6 



/ 
/ 

/GLSET INITIALIZES R17 AND GEWD 

/ 

GLSET 



LAC 


GBi^D2 


DAC 


R17 


LAC^ 


GBi^D2 


AMD 


(77 


ADD 


DSKBFF 


DAC 


GENO 


J-^lP* 


GLSET 


•EJECT 





/PLACE GBW/D2 POIMTER IH R17 

/GET SECOND BUFFER WORD AND EXTRACT THE OFFSET 

/ADD BEGINNING OF BUFFER TO OFFSET 

/PLACE CURRENT END OF VALID BUFFER IH GEMD 
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gcjJBal variable poutimes 



7146 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7J56 
7157 
7158 
7159 
7160 
7161 
716? 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7180 
71S1 
718? 
7183 
71B4 
7195 
7186 
7187 



/GSPACe FINDS k BLOCK ^ITH EMOUGH ROON FOR G^IOWOS i^OROS AS FOLLOWS: 
CHECKS PRESENT BLOCK 
CHECKS PREVIOUS BLOCKS (GHI) 
SEARCHES FORi'JARD ALONG CHAIM 
GETS BLOCK FROM FREE LIST 



1) 
2) 
3) 
4J 



114 36 
11437 
11440 
11441 
11442 
11443 
11444 
11445 
11446 
11 A47 
11450 
11451 
11452 
11453 
11454 
U455 
11456 
11457 
1 1460 

11461 
1 1462 
1 1463 
1 1 464 
11465 
1 1 466 

11467 
114 7 
1 1471 
11472 
11473 
11474 
11475 
11476 



000000 
220705 
513702 
311325 
353646 
745100 
631436 
200252 
741200 
611461 
311325 
353646 
740100 
611461 
200251 
1113 31 
040017 
140252 
631436 

220704 
741200 
611467 
111331 
040017 
6114 3 7 

134103 
060704 
040172 
111331 
160704 
200705 
U1412 
631436 



/ 

/ 

/ 

/ 

/ 

/ 

GSPACE 

GSPACl 



READS IM SELECTED BLOCK 



gspa; 



/ 

GSPAC6 





LAC* 

AND 

ADD 

TAD 

SPAICLL 

JMP* 

LAC 

SNA 

JMP 

ADD 

TAD 

S'MA 

JMP 

LAC 

JMS 

OAC 

DZH 

JMP* 

LAC* 

SNA 

J (MP 

JMS 

DAC 

JMP 

JNS* 
DAC* 
OAC 

JWS 
DZM* 

LAC 

JMS 
JHP* 



GB^D2 
(77 

GiMOlAlDS 
(777700 

GSPACE 
GHI 

GSPAC4 
GNOi^DS 
(777700 

GSPAC4 

G6LKHI 

GDISK 

R17 

GHI 

GSPACE 

DSKBFF 

GSPAC6 
GDISK 
R17 
GSPACl 

GFREE 

DSKBFF 

iJRTSW 

GDISK 

DSKBFF 

GBWD2 

GOFF 

GSPACE 



/*12JAH12* IS THERE ROOM? 
/MASK OFFSET 



/FITS IF MEG 

/ROOM IN CURRE^iT BLK 

/HO OF AVAIL LOC IH LARGEST 

/IS THERE A PREVIOUS BLOCK 

/NO 

/77 FITS 

/NO ROOM 
/READ 



PREVIOUS BLOCK 



/IS THERE CONT BLK 

/NO 
/READ 

/*12JAH12* 

/*12JAH12* GET BLK FFROM FREE LIST 
/COMT BLK 

/READ 

/SET BEG ADD OF BUFF 
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CO^MAWD PaaCESSORS 



71B8 
7189 
7190 
7191 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7 201 
7202 
7203 
7204 
7205 
7206 
7207 
720R 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
72iB 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 



11477 R 107107 R 

11500 R 744400 A 

11501 R 000003 A 



1 1502 
11503 
11504 
11505 
11506 
115 7 
11510 
1 151J 
1 1512 
1 1513 
11514 
11515 
11516 



106 
741 
000 
105 
220 
740 
060 
213 
040 
200 
040 
103 
611 



673 
400 
003 
304 
144 
031 
154 
730 
221 
133 
220 
325 
513 



11523 
115 2 4 
U525 
11526 
11527 
11530 



2137 32 
040223 
2 1 3 3 
040222 
744000 
107163 



11517 w 777776 A 

1J520 R 105040 R 

11521 R 200222 R 

11522 R 20022 3 R 



11531 R 777776 A 

115 32 R J 0510 3 R 

11533 R 040223 R 

11534 R 040222 R 

11535 R 606770 R 



.TITL 

/PROCESS THE 

ASK CALL 
SNLIC 
ERR3 

/ASK A NUMERI 
CALL 
SZL 
ERR3 
CALL 
LAC* 
TCA 
OAC* 
LAC 
OAC 
LAC 
OAC 
CALL 
JMP 

/##### SAVE 
LAiw 
CALL 
LAC 
LAC 



E CONMAMD PROCESSOR; 
ASK COMMAND 

SETln 
LL 

C VARIABLE 
FORMAT 



ASSEM 
WVAR 

PR TEND 
C XC 1 1 
IPLACE 
8UEF2 
IPOINT 
PACKEM 
.'3 
N STACK #«### 
-2 

SAVE 
OPOIWT 
QPLACE 



/##»## 



/##### 



/«#### 



LAC 

DAC 

LAC 

DAC 

CLL 

CALL 

POPST 

LA'!^ 

CALL 

DAC 

DAC 

JMP 
.EJEC 



# # # # # 



ACK 



(XC01 
QPLACE 
BUFF 2 
QPOINT 

EVAL 

~2 

UNSAVE 
QPLACE 
OPOIMT 

##### 
F0R^2 



##### 



/ASK ALL ILLEGAL, SYMTAX ERROR 

/HANDLE F0R'>4AT CONT CHARS 

/• PREFIX NOT ALLOWED 

/ASSEf^. VAR NAME 

/SETUP WATCHDOG COUK-TDO^N 



/♦12JAH14* CHAR POS = 
/*12JAH14* MIDDLE 
/ADDR OF STR AC 



/♦12JAH14* 



/1'12JAH14* CHAR POS 

/*12JAH14* CHAR POS 
/*12JAH14=«= MIDDLE 



/NUMERIC OMLY 

/*12JAH14* 
/*12JAH14'^ CHAR POS 



T 
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:OmknD PROCESSORS 



7 22 7 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7 2 39 
7240 
7241 
7242 
7243 



11536 
11537 
11540 
1 1541 
11542 
11543 
11544 

11545 

1 1546 
1 1547 
U55G 
J 1551 
11552 



7 7 7 7 7 2 
105040 
203535 
200203 
200206 
220145 
200222 
200223 

21 15 52 

4 0020 
634071 
000002 
011552 



/PROCESS THE BRE4K CONMAnD 
/##### SAVE ON STACK ##### 



BREAK 



/##### 



BREAKl 



CALL 

LAC 

LAC 

LAC 

LAC* 

LAC 

LAC 

LAC 
DAC 

ERR2 

• 

.EJECT 



-6 

SAVE 

DISPAT 

FORTST 

LOC 

LVAR 

QPOINT 

OPLACE 

BREAKl 
R20 

ERROR 2 



/=^12JAHJ4* 



##### 



/*12JAH14* CHAR POS 



/*12JAH12=^ 
/"BREAK" 
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MfjVipc 


) 


100 


CO^ 


1MAN0 RkQ 


iCESSORS 




7244 










/DO - 


PROCESS 


THE DO COH^A^iO 


7245 










/ 






7246 


11553 


H 


7 4 440 


A 


DO 


SNLICLL 




7247 


11554 


R 


000004 


A 




ERR4 




7248 


1 1555 


R 


744002 


A. 


DOO 


STL 




7249 


1 1556 


R 


107163 


R 




CALL 


EVAL 


7250 










/####» 


SAVE ON , 


STACK ##### 


7 251 


11557 


R 


777772 


A 




LAW 


-6 


7252 


11560 


R 


1050 40 


R 




CALL 


SAVE 


7253 


1 1561 


R 


203535 


R 




LAC 


OISPAT 


7254 


11562 


R 


200203 


R 




LAC 


PORTST 


7255 


11563 


R 


200206 


R 




LAC 


LQC 


7256 


11564 


R 


220145 


P 




LAC* 


LVAR 


7257 


11565 


P 


200222 


R 




LAC 


QPOIMT 


725B 


11566 


R 


200223 


R 




LAC 


OPLACE 


7259 










/###«# 




##### 


7260 


11567 


R 


200207 


R 




LAC 


VAL 


7261 


11570 


R 


553741 


R 




SAD 


(777777 


7262 


1 1571 


R 


611611 


R 




JMP 


DOSTR 


7263 


11572 


R 


653323 


A 




IDIV? 


144 




11573 


R 


000144 


A 








7264 


115 7 4 


R 


741200 


A 




SMA 




7265 


11575 


R 


611624 


R 




JMP 


001 


7266 


11576 


R 


105123 


R 




CALL 


STEP 


7267 


11577 


R 


060145 


R 




DAC^ 


LVAR 


726H 


1 1600 


R 


200016 


A 




LAC 


R16 


7269 


11601 


R 


040206 


R 




OAC 


LOC 


7270 


1 1602 


R 


740030 


A 




lAC 




7271 


1 1603 


R 


040222 


R 




OAC 


QPOINT 


7272 


1 1604 


R 


213732 


R 




LAC 


(XCOl 


7273 


11605 


R 


040223 


R 




DAC 


GPLACE 


7274 


11606 


R 


103535 


R 




CALL 


OISPAT 


7275 


11607 


R 


740000 


A 




NOP 




7276 


11610 


R 


611662 


R 




JMR 


00 3 


7277 










/ 






121^ 










/DO STRING 




7279 










/ 






7280 


1 1611 


R 


200133 


p 


DOSTR 


LAC 


3UFF2 


7281 


11612 


R 


040222 


R 




DAC 


OPOIMT 


728? 


1 1613 


o 


213732 


R 




LAC 


(XCOl 


7283 


11614 


P 


040223 


R 




DAC 


OPLACE 


7284 


1 1615 


R 


104660 


R 




CALL. 


OCHARI 


7285 


11616 


R 


103724 


R 




CALL 


SY'^TAX 


72B6 


11617 


R 


000 3 


A 




ERR3 




7287 


11620 


R 


611622 


R 




JMP 


D0STR2 


7 28 8 


11621 


H 


000003 


A 




ERR3 




7289 












.EJECT 





/AMY OPERA{MD(S)? 

/MO, "CMMND" 

/^12JAH12* YES, SET EOR m^. OR STR RESULT AND 

/GO EVALUATE OPERAND. 

/*i2JAH14* 

/SAVE 5 'J^ORDS 



/♦12JAH14* CHAR POS 



/DID OPERAND EVAL AS STR? 
/YES, GO HANDLE "DO STR" 

/no, 

/FRACT PORTION (STEP NO) IN AC. 

/DO A PART 

/DO A STEP - FIND STEP HQ HELD IN VAL, 

/^lAKE REF STEP "CURRENT" STEP 

/UPDATE PTR INTO STEP BUFFER. 

/SETUP PTR TO GET REST OF STEP. 

/*12JAH14* CHAR POS = 

/*12JAH14* f-^IDDLE 

/GO TO CMND DISPATCH, 

/QUIT RETURN 

/NORMAL RET (STEP COMPLETED) 



/*12JAH14* CHAR POS 
/*12JAH14* MIDDLE 



/A- "SYNTX" 

/N 

/P- "SYNTX" 
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7290 

7291 

7292 11622 R 104340 R D0STR2 CALL PLACE /*12JAH14* 

7293 

7294 

7295 

7296 

7297 

7298 11625 R 200016 A DOl.l LAC Ri6 /'«=12JAH12^ 

7299 

7300 

7301 

7302 11631 R 213732 R LAC (XCOl /*12JAH14* CHAR PCS = 

7303 11632 R 040223 R OAC QPLACE /*12JAH14* MIDDLE 
7304 
7305 

7306 11635 P 103535 R D02 CALL DISPAT /GOTO A STEP 

7307 11636 R 611662 R JNP DQ3 /QUIT RETURN 
730fi 
7309 

7310 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 

7322 
7323 

7324 11661 R 611625 R JMP DQl.l /^t'l 2 JAHl 2=*= 

7325 /##### POPSTACK ##### 

7326 11662 R 777772 A 003 LAW -6 /*12JAH14* 
7327 

732B 11664 R 040223 R OAC OPLACE /*12JAH14* CHAR POS 

7329 
7330 
7 331 
7332 
7333 

7 334 /##### «»### 

7335 

7336 11673 R 104645 R CALL QCHAR /GET A CHAR. 

7337 11674 R 553767 R SAD (54 /, /IS IP A 

7338 11675 H 611555 R JMP DOO /♦12JAH12* YES, DO NEXT OPERAND 

7339 11676 R 603574 R JNIP DTA8LE+1 /HO MORE OPERANDS, GO TO COMMO'V RET PROC 



MU^PS 


100 




G^^MA^iD PRO 


iCESSORS 












/DO STE 

/ 

D0STR2 


P 




11622 


R 


104340 


R 


CALL 


PLACE 


11623 


R 


611662 


R 


/ 

/DO OR 

/ 

DOl 


JMP 


D03 










GOTO A 


PART 


1 162 4 


R 


105151 


R 


CALL 


PART 


11625 


H 


200016 


A 


DOl.l 


LAC 


R16 


11626 


R 


040206 


R 




DAC 


LOC 


11627 


R 


740030 


A 




lAC 




11630 


R 


040222 


R 




DAC 


QPOIMT 


116 31 


R 


213732 


R 




LAC 


(XCOl 


1 1632 


R 


040223 


R 




OAC 


QPLACE 


116 3 3 


R 


220206 


R 




LAC* 


LOC 


11634 


R 


060145 


R 




DAC* 


LVAR 


1 1635 


P 


103535 


R 


D02 


CALL 


DISPAT 


11636 


R 


611662 


R 




JNP 


DQ3 


11637 


R 


220145 


R 




LAC* 


LVAR 


11640 


R 


653323 


A 




IDIV; 


144 


11641 


tt 


000144 


A 








11642 


R 


641002 


A 




LACQ 




11643 


R 


040207 


R 




DAC 


VAL 


1 1644 


R 


200206 


R 




LAC 


LOC 


11645 


R 


040016 


A 




DAC 


R16 


1 1646 


R 


220016 


A 




LAC* 


R16 


11647 


R 


653606 


A 




LMQlCLAC!LLS+6 


1 1650 


R 


300016 


A 




ADD 


R16 


11651 


R 


540167 


R 




SAD 


END 


11652 


R 


611662 


R 




J^!P 


DO 3 


11653 


R 


040016 


A 




DAC 


R16 


11654 


R 


220016 


A 




LAC* 


R16 


11655 


R 


653323 


A 




IDIV; 


144 


1 1656 


R 


000144 


A 








11657 


R 


641002 


A 




LACQ 




11660 


R 


540207 


R 




SAD 


VAL 


11661 


R 


611625 


R 




JMP 


DQl.l 










/##### 


POPSTACK 


11662 


R 


777772 


A 


003 


LAW 


-6 


11663 


R 


105103 


P 




CALL 


Ut^lSAVE 


11664 


P 


040223 


R 




OAC 


OPLACE 


11665 


R 


040222 


R 




DAC 


OPOI^IT 


11666 


R 


060145 


R 




DAC* 


LVAR 


11667 


R 


040206 


R 




OAC 


LOC 


11670 


P 


040203 


R 




DAC 


FORTST 


11671 


H 


4 3535 


R 


/##### 


DAC 


DISPAT 


11672 


R 


105201 


R 




CALL 


CHECK 


11673 


R 


104645 


R 




CALL 


QCHAR 


11674 


R 


553767 


R 




SAD 


(54 


1 1675 


R 


611555 


R 




JMP 


DOO 


1 1676 


R 


603574 


R 




JNIP 


DTA8LE+1 



PkGE 1B8 
7340 



MUMPS 100 



COMMAND PROCESSORS 
. EJECT 
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MU^PS 


100 


COM 
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)CESSORS 




7341 










/PROCESS THE EPASfi Cn^lMAMD 


734? 


11677 


R 


745400 


A. 


ERASE 


SZL'CLL 




7343 


1 17 00 


R 


611710 


R 




Jf^P 


ERASEl 


7344 


11701 


R 


220145 


R 




LAC* 


l^kR 


7345 


11702 


R 


744202 


A 




SZAISTL 




7346 


13703 


P. 


612362 


R 




JMP 


ELSE 


7347 


1 1704 


R 


200134 


R 




LAC 


BUFF 


7348 


11705 


R 


740030 


A 




lAC 




7349 


U706 


R 


103744 


R 




CALL 


STORl 


7350 


11707 


R 


603573 


R 




JMP 


DTA8LE 


7351 










/ERASE 


A STEP OR A PART 


7352 


11710 


R 


107163 


R 


ERASEl 


CALL 


E^AL 


7353 


11711 


R 


745100 


A 




SPAiCLL 




7354 


J 1 7 1 2 


R 


000005 


A 




ERRS 




7355 


11713 


R 


653323 


A 




IDIV; 


144 




11714 


R 


000144 


A 








7356 


11715 


R 


741200 


A 




SNA 




735? 


11716 


R 


611750 


R 




JMP 


ERASE3 


7358 


11717 


R 


105123 


R 




CALL 


STEP 


7359 


11720 


R 


777776 


A 




LAW 


«2 


7360 


U721 


R 


300016 


A 




ADD 


R16 


7361 


11722 


R 


040014 


A 




DAC 


R14 


7362 


11723 


R 


220016 


A 




LAC* 


R16 


7363 


117 24 


R 


653606 


A 




LMOlCLACILLS+6 


7364 


11725 


R 


140652 


R 


ERASES 


DZ^' 


SW'APSW 


7365 


11726 


R 


300016 


A 




ADD 


R16 


7366 


1 1727 


R 


040015 


A 




DAC 


R15 


7367 


1 17 30 


R 


540167 


R 




SAD 


E'NlO 


7368 


11731 


R 


611736 


R 




JI^P 


ERASE6 


7369 


11732 


R 


220015 


A 




LAC* 


R15 


7370 


1 1733 


R 


060014 


A 




DAC* 


R14 


7371 


117 34 


R 


200015 


A 




LAC 


R15 


7372 


117 35 


R 


611730 


R 




JMP 


,-5 


7373 


117 36 


R 


200014 


A 


ERASE6 


LAC 


R14 


7374 


11737 


R 


103744 


R 




CALL 


STORl 


7375 


1 1740 


R 


440652 


R 




ISZ 


SWAPSW 


7376 


11741 


R 


741000 


A 




SKP 




7377 


11742 


R 


101533 


R 




JMS 


HANG 


7378 


11743 


R 


105201 


R 




CALL 


CHECK 


7 37 9 


1 1744 


H 


104645 


R 




CALL 


OCHAR 


7380 


11745 


R 


553767 


R 




SAD 


(54 


7381 


11746 


R 


611710 


R 




JMP 


ERASEl 


7382 


11747 


R 


603573 


R 




JMP 


DTABLE 


7383 










/ERASE 


A PART 




7384 


11750 


R 


105151 


R 


ERASE3 


CALL 


PART 


7385 


11751 


R 


777776 


A 




bk^ 


-2 


73B6 


1 1752 


R 


300016 


A 




ADD 


R16 


7387 


11753 


R 


040014 


A 




DAC 


R14 


7388 


11754 


R 


220016 


A 


ERASE4 


LAC* 


R16 


7389 


11755 


R 


653606 


A 




LMQ'CLACiLLS+6 


7390 


11756 


R 


300016 


A 




ADD 


R16 


7391 


11757 


R 


540167 


R 




SAD 


EMO 



/ERASE ALL 
/DIRECT MODE? 
/E IS ELSE 
/YES 



/FIND OUT WHAT STEP 3R PART USER HAS IM MIND 



/msr BE POSITIVE- "Mli^US" 



/STEP OR PART? 

/PART CREHAIIMDER IS ZERO) 

/STEP 



/ONE BEFORE FIRST ^ORO 



/INHIBIT S^hP DURING PROG UPDATE 

/LAST w/ORD 

/IS LAST i^ORD THE EMD? 

/NO 
/HOVEUP 



/TIME SLICE UP? 

/NO 

/YES, LET OTHERS RUN 



/, 



/EXIT ^ITH VAL=INTEGER PART 



/OME BEFORE FIRST WORO 



/REACHED THE END YET? 
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100 


COMMAND 


7392 


11760 


H 


611736 


R 


7393 


11761 


R 


040016 


A 


7394 


1176? 


9. 


220016 


A 


7395 


11763 


R 


653323 


A 




11764 


R 


000144 


A 


7396 


11765 


R 


641002 


A 


7397 


11766 


R 


540207 


R 


7398 


11767 


H 


611754 


R 


7 3 99 


11770 


R 


777776 


A 


7400 


11771 


R 


611725 


R 


7 401 











pro: 



ESSORS 




JMP 


ERASF6 


DAC 


R16 


LAC* 


R16- 


IDIV; 


144 


LACO 




SAD 


VAL 


JMP 


e:rase4 


LAW 


-2 


JNP 


ERASES 


.EJECT 





/YES 



/IMEw' PART YET? 
/MO 



PkQE 191 MUMPS 100 COMMAi^D PROCESSORS 

7402 /PROCESS THE FOR COi^MAND 

7403 / FOR yAR = EXP,EXP:eXP:EXP,EXP:SXP UNTIL OR vv^HlLE BOOL 

7404 / 

7405 11772 R 744400 4 FOR SMLiCLL 

7406 11773 R 634073 E JMP* FILE6 /I' 1 2 JAHl 2=*= ARG MISSIMG THEREFORE FILE COMMAND 

7407 11774 R 104660 R CALL OCHARI 

7408 11775 P 040214 R DftC M 

7409 11776 R 104710 R CALL SUBOPT 

7410 11777 R 200214 R LAC M 

7411 12000 R 553724 R SAO (33 /LEFT SQUARE BRACKET 

7412 12001 R 634072 E J^4P* FILE /*12JAH12=*^ FILE NITH KEY CITED 

7413 /##### SAVE on STACK ##### 

7414 12002 R 777774 A LAw «4 

7415 12003 R 105040 R CALL SAVE 

7416 12004 R 200235 R LAC FORVAR /MAHE OF FOR VARIABLE 

7417 12005 R 200243 R LAC TX /POI^'TER TO FORVAR VALUE. 

7418 12006 R 200244 R LAC T2 /VALUE OF If^CRENEWT 

7419 12007 R 200245 R LAC T3 /TERMINAL VALUE 

7420 /##### ##### 

7421 12010 R 105304 R CALL ASSEM 

7422 12011 R 553762 R SAD (75 / = 

7423 12012 R 741000 A SKP 

7424 12013 R 000003 A ERR3 /"Sy^'TX" 

7425 12014 R 200205 R LAC SCRIPS 

7426 12015 R 744200 A SZAICLL 

7427 12016 R 000003 A ERR3 / INDEX VARIABLE CAN'T HAVE MY SUBSCRIPTS 

7428 /"SYMTX" ERROR 

7429 12017 H 107163 R CALL EVAL / EVALUATE INITIAL VALUE OF IMDEX 

7430 12020 R 200204 R LAC SYMS 

7431 12021 R 040177 R DAC SY'M 

7432 12022 R 040235 R OAC FORVAR 

7433 12023 R 140200 R DZM SCRIP 

7434 12024 R 754002 A STLiCLA /SETUP FOR SYMBOL "PUT" 

7435 12025 R 105434 R CALL SYMBOL /PUT "FOR VAR" INTO USER SYM TBL, 

7436 12026 B 200017 A LAC R17 

7437 12027 R 040243 R DAC Tl / POINTER TO FOR VARIABLE'S VALUE 

7438 12030 R 104645 R FORI CALL OCHAR 

7439 12031 R 553764 P SAD (72 / : 

7440 12032 R 612214 R JMP FORITI 

7441 12^33 P 750001 A CLAICMA 

7442 12034 R 040244 R OAC T2 / SET SWITCH 

7443 /##### POPSTACK ##### 

7444 12035 R 777775 A F0R2 LhM -3 /*12JAH14* 

7445 12036 R 105040 R 

7446 12037 R 200222 R 

7447 12040 R 200223 R LAC QPLACF /*12JAH14* CHAR POS 



7448 12041 R 200206 R 

7449 /####ff «#### 

7450 12042 R 440203 R 

7451 12043 R 104645 R 
7 452 12044R7 41000A 
7453 



F0R2 


LAi%' 


-3 




CALL 


SAVE 




LAC 


QPQINT 




LAC 


QPLACF 




LAC 


LOC 


/####ff 






F0R3 


ISZ 


FORTST 




CALL 


OCHAR 




SKP 
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7454 


12045 


H 


10 4660 


R 


FOR 4 


CALL 


QCHARI 


7455 


12046 


R 


553653 


R 




SAD 


(40 


7456 


12047 


R 


603537 


R 




JMP 


FQRXIT 


7457 


12050 


R 


553764 


R 




SAD 


(72 


745B 


12051 


P. 


741000 


A 




SKP 




7459 


12052 


R 


612045 


R 




JNP 


FOR 4 


7460 


12053 


R 


104660 


R 




CALL 


QCHARI 


7461 


12054 


R 


553764 


R 




SAD 


(72 


7462 


12055 


R 


612045 


R 




JMP 


F0R4 


7463 


12056 


R 


553653 


R 




SAD 


(40 


7464 


12057 


R 


741000 


A 




SKP 




7465 


12060 


R 


612053 


R 




JMP 


.-5 


7466 


12061 


R 


104660 


R 




CALL 


QCHARI 


7467 


12062 


R 


553653 


R 




SAD 


(40 


7468 


12063 


R 


741000 


A 




SKP 




7469 


12064 


R 


612061 


R 




JMP 


,-3 


7470 


12065 


R 


104660 


R 


F0R5 


CALL 


QCHARI 


7471 


12066 


R 


553653 


R 




SAD 


(40 


7472 


12067 


R 


603537 


R 




JMP 


FQRXIT 


7473 


12070 


R 


553755 


R 




SAD 


(42 


7474 


12071 


R 


741000 


A 




SKP 




7475 


12072 


R 


612065 


R 




JMP 


F0R5 


7476 


12073 


P 


104660 


R 




CALL 


QCHARI 


7477 


12074 


R 


553755 


R 




SAO 


(42 


7478 


12075 


R 


612065 


R 




JlV^iP 


F0R5 


7479 


12076 


R 


612073 


R 




JMP 


.-3 


7480 










/ 






7481 










/ 






7482 










/ RETURN HERE FRGiVi DISP 


74B3 










/ 






7484 










/»#### 


SAVE ON 


STACK 


7^85 


12077 


R 


777775 


A 


FORSTP 


LAW 


-3 


7486 


12100 


R 


105103 


R 




CALL 


UNSAVE 


7487 


12101 


R 


040206 


R 




DAC 


LOC 


7488 


12102 


P 


040223 


R 




DAC 


OPLACE 


7489 


12103 


R 


040222 


R 




DAC 


OPOINT 


7490 










/##### 






7491 


12104 


R 


105201 


R 




CALL 


CHECK 


7 49 2 


12105 


R 


777777 


A 




LAW 


-1 


749? 


1210ft 


P 


340203 


R 




TAD 


FORTST 


7494 


1210 7 


R 


040203 


R 




DAC 


FORTST 


7495 


12110 


R 


777776 


A 




LAW 


-2 


7496 


12111 


R 


300243 


R 




ADO 


Tl 


7497 


12112 


R 


040207 


R 




DAC 


VAL 


7498 


12113 


R 


740001 


A 




CMA 




7499 


12114 


R 


300170 


R 




ADO 


SYMBEG 


7500 


12115 


R 


744001 


A 




CMAICLL 




7501 


12116 


R 


741300 


A 




SPAISMA 




7502 


12117 


R 


612124 


R 




JMP 


.+5 


7503 


12120 


R 


220207 


R 




LAC* 


VAL 


7504 


12121 


R 


240235 


R 




XOR 


FORVAR 


7505 


12122 


R 


553662 


R 




SAD 


(400000 



/SPACE 



/SPACE 

/SPACE 

/SPACE 
/" 

/" 



ATCH TO ITERATE FOR LOOPS 

##### 

/*12JAH14* 

/^12JAH14* CHAR POS 

/ DECREME^JT FORTST 

/ PTR TO IN-DEX-VARIA3LE'S NAHE in S!fHBOL TABLE 

/OUTSIDE THE TABLE TEST 
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100 


ca^ 


i^A*vO PRO 


CFSSURS 




7506 


1 2123 


R 


612141 


R 




JNP 


F0R1T2 


7507 


12124 


R 


2G0235 


R 




LAC 


FORVAR 


7508 


1212 5 


R 


04017 7 


R 




OAC 


Sl^. 


7509 


12126 


R 


140200 


R 




DZM 


SCRIP 


7510 


12127 


R 


754000 


A 




CLLiCLA 




7511 


12130 


R 


105434 


R 




CALL 


S^MSOL 


7512 


1 2131 


R 


641002 


A 




LACQ 




7513 


12132 


R 


741200 


A 




Si-^JA 




7514 


1213 3 


R 


000010 


A 




ERRIO 




7515 










/ 






7515 


12134 


R 


745400 


A 




SZLICLL 




7517 


12135 


R 


000011 


A 




ERPil 




7519 










/ 






7519 


12136 


R 


200017 


A 




LAC 


R17 


7520 


12137 


R 


740030 


A 




lAC 




7521 


12140 


R 


040243 


R 




DAC 


Tl 


7522 


12141 


R 


200244 


R 


F0RIT2 


LAC 


T2 


752 3 


12142 


R 


553741 


R 




SAD 


illllll 


7524 


12143 


R 


612167 


R 




JMP 


FORf^'EXT 


7525 


12144 


R 


320243 


R 




ADDI^ 


Tl 


7526 


12145 


R 


741401 


A 




SZLICMA 




7527 


12146 


R 


000006 


A 




ERR6 




7528 


12147 


R 


744200 


A 




SZAJCLL 




7529 


12150 


R 


740001 


A 




CMA 




7 5 30 


12151 


R 


060243 


R 




DAC* 


Tl 


7531 


12152 


R 


200245 


R 




LAC 


T3 


753? 


12153 


R 


553741 


R 




SAD 


{111111 


7533 


12154 


R 


612230 


R 




JMP 


PORIF 


7534 










/ 






7535 


12155 


R 


560243 


R 


F0RIT3 


SAD* 


Tl 


7536 


12156 


R 


612035 


R 




JMP 


FOR 2 


7537 


12157 


R 


744001 


A 




CLLiCMA 




7538 


12160 


P 


320243 


R 




ADD* 


Tl 


7539 


1216J 


R 


745400 


A 




SZLICLL 




7540 


12162 


R 


220243 


R 




LAC* 


Tl 


7541 


12163 


R 


740001 


A 




CMA 




7542 


12164 


R 


240244 


R 




XOR 


T2 


7543 


12165 


R 


740100 


A 




SiViA 




7544 


12166 


R 


612035 


R 




JNP 


F0R2 


7545 


12167 


R 


104645 


R 


FORiyeXT 


CALL 


QCHAR 


7546 


12170 


R 


553767 


R 




SAO 


(54 


7547 


12171 


R 


612210 


R 




JMP 


F0R0M2 


7548 


12172 


R 


553653 


R 




SAD 


(40 


7549 


12173 


R 


751001 


A 




SKPiCLAI 


ICMA 


7550 


1217 4 


R 


00000 3 


A 




ERR 3 




7551 


12175 


R 


260243 


R 




XOR* 


Tl 


7552 


12176 


R 


300244 


R 




ADD 


T2 


755J 


12177 


R 


740001 


A 




CMA 




7554 


12200 


R 


060243 


R 




DAC* 


Tl 


7555 










/###?f # 


POPSTACK 


7556 


12201 


R 


777774 


A 


FOROO^iE 


LAW 


-4 


7557 


12202 


H 


105103 


R 




CALL 


UN5AVF 



/SSTQP FOR SYMBOL GET. 

/ LOOK FOR "FOR VARIABLE" 



/ FOR VARIABLE HAS 8ESM KILLED- "UNDEF" 

/ FOR VARIABLE IS MO^ A STRIMG- "MIXED" 

/ FOR VARIABLE HAD MOVED 

/ NEW ADDRESS OF FOR VARIABLE'S VALUE 

/ INCRS"4£NT FOR VARIABLE 
/"MAXIM" 



/ COMPARE INDEX AND TERMINATOR 
/ THEY'RE =; LOOP ONCE MORE 



/ INDEX<TERMINATOR; LOOP SOME MORE 
/ I?^OEX>TERMTNATOR; CHECK FOR e*^D 
/, 

/SPACE 

/"SYMTX" 



##»## 
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^^UMPS 


1 




OMMAMD PRO 


CFSSORS 






7558 


12203 


R 


040245 


R 




DAC 


f3 




7 559 


12204 


R 


0^0244 


R 




DAC 


T2 




7560 


12205 


R 


040243 


R 




DAC 


ri 




7561 


12206 


R 


040235 


R 




DAC 


FORVAR 




756? 










/####» 




##### 




7563 


12207 


R 


603602 


R 




JNP 


DTATST 




7564 










/ 








7565 


12210 


R 


744000 


A 


F0R0M2 


CLL 




/NUNERIC RESULT OHh'i 


7566 


12211 


R 


107163 


R 




CALL 


eVAL 




7567 


12212 


P. 


060243 


R 




OhC^ 


Tl 




7568 


12213 


R 


612030 


R 




JH9 


FORI 




7569 










/ 








7570 


12214 


R 


744000 


A 


FORITl 


CLL 




/NUMERIC RESULT ONLY 


7571 


12215 


R 


107163 


R 




CALL 


e^AL 


/EVALUATE INCREMENT 


7572 


12216 


R 


040244 


R 




DAC 


T2 




7573 


12217 


R 


104645 


R 




CALL 


QCHAR 




7574 


12220 


R 


553653 


R 




SAD 


(40 


/SPACE 


7575 


12221 


R 


612230 


R 




i}M? 


FGRIF 




7576 


12222 


R 


553764 


R 




SAD 


(72 


/: 


7577 


12223 


R 


745000 


A 




SKPiCLL 






7578 


12224 


R 


00000 3 


A 




ERR3 




/"SYMTK" 


7579 


12225 


R 


107163 


R 




CALL 


EVAL 


/EVALUATE TERMINATOR 


7580 


12226 


R 


040245 


R 




DAC 


T3 




7581 


12227 


R 


612155 


R 




JM.P 


F0RIT3 




7582 










/ 








75B3 


12230 


R 


140245 


R 


FOR IF 


DZM 


T3 




7584 


12231 


R 


777776 


A 




LAW 


"2 


/♦12JAH14* 


75B5 


12232 


H 


105040 


R 




CALL 


SAVE 


/*12JAH14* 


7586 


12233 


R 


200222 


R 




LAC 


OPQIWT 


/*12JAH14* PTR i^ORD 


7587 


12234 


R 


200223 


R 




LAC 


OPLACE 


/*12JAH14* CHAR i^ITHIN /^ORD 


758B 


12235 


R 


104660 


R 




CALL 


OCHARI 




7589 


12236 


R 


554013 


R 




SAD 


(25 


/ UNTIL 


7590 


12237 


R 


612244 


R 




JMP 


.■J-5 




7591 


12240 


R 


554U14 


R 




SAD 


(27 


/ vvHlLE 


7592 


12241 


R 


741000 


A 




SKP 






7593 


12242 


R 


000004 


a' 




ERR4 




/"CMVfND" 


7594 


12243 


R 


440245 


R 




ISZ 


13 




7595 


12244 


R 


104660 


R 




CALL 


OCHARI 




7596 


12245 


R 


553653 


R 




SAO 


(40 




7597 


12246 


R 


741000 


A 




SKP 






7598 


12247 


R 


612244 


R 




jnp 


• -3 




7599 


12250 


R 


106203 


R 




CALL 


BOOL 




7600 


12251 


H 


240245 


R 




XOR 


T3 




7601 


12252 


R 


751201 


A 




Sr^A'CLA 


iCMA 


/LOOP FINISHED? /=»=12JAH18* 


7602 


12253 


R 


612261 


R 




JHP 


FORIFI 


/NO /*12JAH18^ 


7603 


12254 


R 


777776 


A 




LAv^ 


-2 


/YES /*12JAH18* 


7604 


12255 


R 


105103 


R 




CALL 


(J f^ SAVE 


/POP START /=*!l2JAH18'i' 


7605 


12256 


R 


740000 


A 




'^JOP 




/OF LOOP PTRS /*12JAH181^ 


7606 


12257 


R 


740000 


A 




WOP 




/DON'T (MEED THE'^. ANifMORE /*12JAH18* 


7 60 7 


12260 


R 


612201 


R 




JWP 


FQRDO^^)F 


/GO FIMISH UP /*12JAH18* 


7608 


12261 


R 


040245 


R 


FORIFI 


DAC 


T3 


/INSERT -1 /*12JAH18* 


7609 










/#«### 


SAVE ON 


STACK 


»#### 



9kGE 


195 


MiJMPS 


100 


COMMAND PROCESSORS 




7610 




12262 H 


777777 


A LA^ 


-1 


7611 




12263 P 


105040 


R CALL 


SAVE 


7612 




12264 R 


200206 


R LAC 


LOC 


7613 








/###»# 




7614 




12265 R 


612042 


R JMP 


F0R3 


7615 








.EJECT 





/*12JAH1B=I= 



##### 



page: 196 


M ij '^ p ;= 


5 


100 


r* 


OMMAMD ? 


ROCESSOF 


(S 




7616 










/PROC 


ESS THE 


GOTO COMMAMD 


7617 


12266 


R 


740002 


A 


GO 


CML 






7618 


12267 


R 


220145 


R 




LAC* 




lvar 


7619 


12270 


P? 


741600 


A 




SZLiSNA 




7620 


12271 


R 


612326 


R 




JMP 




GOl 


7621 


12272 


R 


200203 


R 




LAC 




fqrtst 


7622 


12273 


R 


740200 


A 




SZA 






7623 


12274 


R 


000004 


A 




e:rr4 






7624 


12275 


K 


107163 


R 




CALL 




ESIhb 


7625 


12276 
12277 


R 

R 


653323 
000144 


A 

A 




IDIV; 


1 


144 


7626 


J2300 


R 


741200 


A 




SNA 






7627 


12301 


R 


612317 


R 




JMP 




G02 


7628 


12302 


R 


105123 


R 




CALL 




STEP 


7629 


12303 


R 


060145 


R 




OAC* 




lvar 


7630 


12304 


R 


200016 


A 




LAC 




R16 


7631 


12305 


R 


040206 


R 




OAC 




LOC 


7632 


12306 


R 


740030 


A 




I AC 






7633 


T2307 


R 


040222 


R 




DAC 




GPOINT 


7634 


12310 


R 


213732 


R 




LAC 




CXCOl 


7635 


12311 


R 


040223 


R 




DAC 




OPLACE 


7636 


12 312 


R 


203535 


R 




LAC 




DISPAT 


7637' 


12 313 


R 


513657 


R 




AND 




mill 


7638 


12 314 


R 


554045 


E 




SAO 




CALL71 


7639 


12315 


R 


634044 


£ 




JHP4; 




CALL7 


7 640 


12316 


R 


611635 


R 




J.MP 




002 


7641 










/ 








7642 


12317 


H 


203535 


ft 


G02 


LAC 




DISPAT 


7643 


12320 


R 


513657 


R 




AND 




mill 


764 4 


12321 


R 


554045 


G 




SAD 




CALL71 


7645 


12 3 2 2 


R 


741000 


A 




SKP 






7646 


12323 


R 


611624 


R 




JNP 




DOl 


7647 


12324 


R 


105151 


R 




CALL 




PART 


764B 


12325 


R 


634055 






Jf^P* 




DL2 


7649 










/ 








7650 










/PROC 


'ESS THE 


GO 


COMMA'MO 


7651 


12326 


R 


744400 


A 


GOl 


SNLiCLL 




7652 


12327 


R 


000004 


A 




ERR4 






765B 


123 30 


R 


6 1 1 fo 6 2 


R 




JMP 




PD3 


7654 












.EJECT 





/O LIMK = ARGIJMEMT 
/O LVAR=DIRECT 
/SKIP 3N ARGUMENT AND 
/GO OR DIRECT ^QDE 



INDIRECT 



/^KJ GO»S 
/"CMNND" 



IN FOR COMMANIOS 



/GOTO A PART 
/GOTO A STEP 



/'f=12JAH144' 
/'!«!2JAH14* 



/*12JAH12* 
/*12JAH12* 



/*12JAH12* 



/FIND PART 



/*12JAH17^ 

/^l2Jm\l^ 
/^XlJkHXl^ 



/SKIP ON NO AHGuivlEiNiT AND DIRECT 

/"CNl^MD" 



PAGP; 19? f^UMPS 100 COMvsAND PROCESSORS 



7655 










/PROCESS 


7656 


12 3 31 


p 


107163 


R 


HANGl 


7657 


12332 


R 


140652 


R 




7658 


12333 


R 


741231 


A 




7659 


12334 


P 


612345 


R 




7660 


12335 


R 


047163 


R 




7661 


12 3 3 6 


R 


777775 


A 




7662 


12 3 3 7 


R 


705522 


A 




7663 


12340 


R 


520654 


R 




7664 


12341 


R 


253705 


R 




7665 


17342 


R 


060654 


R 




7666 


12343 


R 


207163 


R 




7667 


12344 


R 


060153 


R 




7669 


12345 


R 


101533 


R 


HA!MG2 


7669 


12346 


R 


603573 


R 




7670 













THE HANG COMMAND 
CALL eVAL 
OZM S'^^APSK' 
SNAiCMAilAC /*12JAH12* 



/mils 



JMP 


HANG2 


DAC 


EVAL 


LAW 


17775 


IWTQFF 




AI^O* 


PRTNHB 


XOR 


(2 


DACf 


PRTNMB 


LAC 


EVAL 


DAC* 


SYMEMD 


JMS 


HANG 


JHP 


DTABLE 


.EJECT 





/SET HANG BIT 
/STORE 



PAGE 198 


MUMPS 


1 U 


COMMAND ^ 


>K3CeSS0RS 




7671 










/pro: 


;ess the 


IF 


CQMMAWD 


7672 


12347 


R 


7 4440 


A 


IF 


SULU 


:ll 




7673 


12350 


R 


612353 


R 




JMP 




IF3 


7674 


12351 


R 


106203 


P 


IF2 


CALL 




BOOL 


7675 


12352 


R 


040246 


R 




DAC 




IFSWT 


7676 


12353 


R 


200246 


R 


1F3 


LAC 




IFS'WT 


7677 


12354 


P 


741200 


A 




SNA 






7678 


12355 


K 


603602 


R 




JMP 




DTATST 


7679 


12356 


R 


104645 


R 




CALL 




CJCHAR 


76fi0 


12357 


R 


553767 


R 




SAD 




(54 


7 681 


12360 


R 


612351 


R 




JMP 




IF2 


7682 


12361 


R 


603574 


R 




JMP 




OTABl 


7683 










/PROC 


:ess the 


ELSE CONMAMQ 


7684 


12362 


R 


200246 


R 


ELSE 


LAC 




IFS'^T 


7635 


12363 


H 


740200 


A 




SZA 






7686 


12364 


R 


603602 


R 




JMP 1 


3TATST 


76R7 


12365 


R 


603573 


R 




JMP 




DTABLE 


7688 












.EJECT 





/=«'12JAH12^ IF MO ARGUMENTS 

/4:12JAH12* EVAL LOGICAL. ARG 

/STORE BOOLEAM ^ALUE 

/*12JAH12=«= RETRIEVE LAST BOOLEAM VALUE 

/O I^'OICATES FALSE 

/FALSE, SKIP REST OF LIME 

/SO FAR ALL ARE TRUE 

/^ORE ARGUiv!ENTS ? 

/^12JAH12* YES 

/*12JAH12* MO, CONTIMUE lU LINE 

/RETRIE\/E THE LAST IF RESULT 

/TRUE IGMQRE REST OF LI^E 
/FALSE, CONTIMUE SCAN 



PACK 199 



?^U^4PS 100 



COMVIAND PROCESSORS 



7689 
7690 
7691 
7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 
7700 
7701 
7702 
7703 
J 70 4 
7705 
7706 
7707 
770R 
770Q 

7710 
771 1 
7712 
771 3 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7729 
7729 
7730 
7731 
7732 
7733 
7 7 34 
7 7 35 
7 7 36 
7737 
773H 
7739 
7740 



/PROCESS THE JQI:^) COMMAND 



12366 


R 


744400 


/ 

A JOIN SMLICLL 




12367 


R 


000004 


A 


ERR4 




12370 


R 


104660 


P JOTMO CALL 


OCHARI 


12371 


R 


554001 


R 


SAD 


(36 


12372 


R 


741000 


A 


SKP 




12373 


R 


000013 


A 


ERR13 




12374 


R 


140254 


R 


DZM 


GSsJMBOL 


12375 


R 


100270 


R 


CALL 


GSYM 


123 7 6 


R 


553655 


R 


SAD 


(37 


12377 


R 


751001 


A 


SKP'CLC 




12400 


R 


000003 


A 


ERR3 




12401 


R 


340166 


R 


TAD 


SPOIMT 


12402 


R 


043712 


R 


DAC 


OTEXT 


12403 


R 


207107 


R 


LAC 


SETIO 


12404 


R 


340165 


R 


TAD 


STACK 


12405 


R 


050005 


R 


DAC 


REMOVE 


12406 


R 


104660 


R 


CALL 


OCHARI 


12407 


R 


554001 


R 


SAD 


(36 


12410 


R 


741000 


A 


SKP 




12411 


R 


000013 


A 


ERR13 




12412 


R 


100270 


R 


CALL 


QSY^ 


12413 


R 


207107 


R 


LAC 


SETIO 


12414 


R 


340165 


P 


TAD 


STACK 


12415 


R 


047107 


R 


DAC 


SETIO 


12416 


R 


227107 


R 


LAC=^ 


SETIO 


12417 


R 


570005 


R 


SAO* 


HENOVE 


12420 


R 


751001 


A 


SKPiCLC 




12421 


R 


000003 


A 


ERR3 




12422 


R 


340166 


R 


TAD 


SPOIMT 


12423 


R 


043174 


R 


DAC 


GUT 


12424 


R 


447107 


R JOINl ISZ 


SETIO 


12425 


R 


450005 


R 


ISZ 


REMOVE 


12426 


R 


210005 


R 


LAC 


RE'^IOVE 


12427 


R 


543712 


R 


SAD 


OTEXT 


12430 


R 


00001 3 


A 


ERR13 




12431 


R 


20 7107 


R 


LAC 


SETIO 


12432 


R 


543174 


R 


SAD 


OUT 


12433 


R 


000003 


A 


ERR3 




12434 


R 


230005 


R 


LAC* 


REMOVE 


12435 


R 


567107 


R 


SAD* 


SETIO 


12436 


R 


612424 


R 


JNP 


J01H\ 


12437 


R 


754000 


A 


CLLiCLA 




12440 


R 


100272 


R 


CALL 


GLOBAL 


12441 


R 


200253 


R 


LAC 


GHEAD 


12442 


R 


047107 


P 


DAC 


SETIO 


12443 


R 


440015 


A 


ISZ 


R15 


12444 


R 


2 2 0015 


A 


LAC* 


R15 


12445 


R 


040207 


R 


DAC 


VAL 


12446 


R 


641002 


A 


LACQ 





/ ARGUTE WTS? 

/'CmUO' - ^UST BE ARGUMENTS 

/*12JAH12* 

/^. 

/•GLOBE* 

/NO NAKED VARIABLES 

/PACK SUBSCRIPTS 

/» 

/'SYMTX' 

/SA\^E WHERE SUBSCRIPTS END 

/SAVE WHERE THEY BEGIN 



/'GLOBE' 

/PACK SUBSCRIPTS OF 2MD 



/CHECK NA^E AGREE:?<4ENr 

/'SY^ITX' 

/SAVE i^^HERE 2N0 SUBS E^JO 
/CHECK FOR LOOP CASE 



/RUN OUT OF FIRST SUBS? 

/YES, JOINIlNlG FROM NODE ^HICH HAS POINTER 

/"GLOBE" ERROR 

/RUh' OUT OF 2ND SUBS? 

/'SYNTX' - ALL SUBS EQUAL, CAUSES LOOP 

/SUBSCRIPTS EQUAL? 

/YES - COULD BE LOOP, KEEP LOOKING 

/MO - PROCEED 

/'GET' 2HD 



/SHOULD BE POINTER 



PAGK 200 ^^U^PS 100 COMMAND PROCESSORS 

7741 12447 « 7541,02 A SMA'CLAiSTL 

7742 12450 R 000010 A ERRIO /'UNOEF' - r^OT POINTER OR NOT DEFINED 

7743 12451 R 742010 A RTL /AC = 2 STATES "JOIN PUT", EXIT FROM GLOBAL ROUTINE W'ILL MOT ISZ SWAPS 

7744 12452 R 100272 R CALL GLOBAL /'JOIM PUT' 

7745 12453 R 140172 R DZM ^^RTSW /DON'T NRITE UNLESS ALL IS OK 

7746 12454 R 641002 A LACQ 

7747 12455 R 741100 A SPA 

774B 12456 R 000013 A ERR13 /'GLOBE' - ALREADY HAS POINTER 

7749 12457 R 253650 R XOR C600000 /FUDGE U BIT TO P BIT 

7750 12460 R 060015 A DAC* R15 /STORE IM BUFFER 

7751 12461 R 207107 R LAC SETIO /SAVED HEAD ADDRESS 

7752 12462 R 040255 R DAC G4D0LD 

7753 12463 R 220015 A LAC* R15 /GET POINTER 

775^ 12464 R 040253 R DAC GHEAD /GHEAD AND GHOOLD SET UP TO AVOID 'CHPNT' 

7755 12465 R 440172 R ISZ aiRTSW /WRITE OUT OLD BUFFER OU READ 

7756 12466 R 151327 R DZM GLFNCT /AVOID TRAPPING 'JOIM PUT' 

7757 12467 R 111331 R JNS GOISK /READ JOIMED BLOCK 

7758 12470 R 220705 R LAC* G8v^D2 

7759 12471 R 741100 A SPA /CHECK POIIMTER? 
77bO 12472 R 513702 R AND (77 /YES, ZORCH IT 

7761 12473 R 353723 R TAD (100 /I^ICREMEMT JOIN COUNTER 

7762 12474 fi 060705 R DAC* GBWD2 

7763 12475 R 134057 £ JMS* DMPOLD /*12JAH12* '/IRITE UPDATED BLK 

7764 12476 R 140577 R DZM DSKACT /FREE DISK 

7765 12477 R 440652 R ISZ Sl^APSW /TIHE SLICE UP? 

7766 12500 R 741000 A SKP /HO 

7767 12501 R 101533 R JMS HANG /YES, LET ANOTHER RUM 

7768 12502 R 104645 R CALL QCrfAR /NEXT CHAR 

7769 12503 R 553767 R SAD (54 /, 

7770 12504 R 612370 R JMP JQI^O /*12JAH12* HORE TO JOIM 

7771 12505 R 603574 R JMP OTABl /*12JAH12* DOME 

7772 .EJECT 
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^U>^PS 100 



COMMAND PROCESSORS 



777 3 

7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 

778 3 
7784 
7 7 85 
7785 
7787 
7788 
7789 
7790 
7791 
7792 
7 79 3 
7794 
7795 
7796 



/PROCiiSS THE KILG COMMAND 



12506 
12507 
12510 
12511 
12512 

12513 
12514 
12515 
12516 
12517 
125 20 
12521 
12522 
12523 
12524 
12525 
12526 
12527 
12530 
12531 
12532 



745400 
612513 
200135 
104034 
603573 



104 
554 
610 
104 
105 
200 
040 
200 
040 
744 
213 
105 
104 
553 
612 
60 3 



KILL 



660 R 

001 R 
104 R 
710 R 
304 R 

204 R 
177 R 

205 R 
200 R 

002 A 
756 R 
434 R 
645 R 
767 P 
513 R 
574 R 



/KILL 
KILLl 



KILL15 
KILL2 



SZLICLL 

JHP 

LAC 

CALL 

JMP 

VARIABLE 

CALL 

SAD 

JMP 

CALL 

CALL 

LAC 

DAC 

LAC 

DAC 

STL 

LAC 

CALL 

CALL 

SAD 

JMP 

JMP 

, EJECT 



KILLl 

SYMBOT 
ST0R2 
DTABLE 
OR AM 
OCHARI 
(36 
GKI LL 
SUBOPT 
ASSEM 
S/HS 

SCRIPS 
SCRIP 

(500000 

SY^IBnL 

OCHAR 

(54 

KILL! 

DTABl 



ARRAY 



,/SETlJP FOR SYMBOL KILL, 

/ KILL THE SYMBOL. 
/'i'12JAH12* 



/t=12JAHl2* 



P4GF: 202 r^UMPS lOU CO*A^AHD PKDCESSORS 



7797 














.IFPNZ 


MODIFY 




7798 










/ 










7799 










/ 










7800 










/ 






MODIFY 


COMMAND 


7801 










/ 










7 8 2 










/ 


M CODIFY) <S> 


: <D> <ID> <D> <R> (<D> (, <D> <ID> <D> <R> <D> .,,)) 


7803 










/ 










7 8 4 










/ 


M(ODIFY) <S> 


# <M> (, 


<S> # <N> .,,) <CR> 


7805 










/ 










7806 










/ 


<S> = 


NUMERIC 


EXP EQUATING TO STEP NO. BEIMG MODIFIED 


7807 










/ 


<D> = 


SlHGhE 


CHAR DELIMITER MOT IN <I0> OR <R> 


7808 










/ 


<ID> 


= ID STRING 




7809 










/ 


<R> = 


REPLACEMENT STRING 


7810 










/ 


<N> = 


NUMERIC 


EXP EQUATir^G TO NEi^ STEP NO. 


7811 










/ 


<CR> : 


= CARRIAGE RETURN 


7812 










/ 










7813 










/ 


FORM 


1 ABOVE 


REPLACES 


THE FIRST OCCURRENCE OF ID STRING IN STEP NO 


7814 










/WITH REPLACEME 


NT STRIM 


G. FORM 2 CHAiMGES THE OLD STEP NO, TO THE NEW 


7815 










/STEP NO, 






7816 










/ 










7 817 










/USE OF 


MODIFY 


IH li^DIRECT MODE REQUIRES EXTRE'^E CARE, AM INDIRECT 


7818 










/MODIFY 


MAY NOT 


MODIFY 


ITSELF MOR <^AY IT RENUMBER ANOTHER STEP 


7819 










/WITH ITS STEP 


NUMBER. 




7820 










/ 










7821 


12533 


R 


740400 


A 


MGDFY 


SHL 




/ANY ARGUHENT? 


7822 


12534 


R 


000003 


A 






ERR3 




/iMO, SYNTAX ERROR 


7823 


12535 


R 


744000 


A 


MODMET 


CLL 




/NUMERIC RESULT ONLY 


7 824 


12536 


R 


107163 


R 






CALL 


eVAL 


/GO GET STEP NO TO BE ^OD 


7825 


12537 


R 


745100 


A 






SPAJCLL 




/STEP NUMBER NEGATIVE? 


7826 


12540 


R 


000005 


A 






ERRS 




/YES, MINUS ERROR 


7827 


12541 


R 


5o0145 


R 






SAD^ 


LVAR 


/MODIFYING STEP BEING EXECUTED? 


7828 


12542 


R 


000015 


A 






ERR15 




/YES, STEPS ERROR 


7829 


12543 


R 


105123 


R 






CALL 


STEP 


/GO FIND LOC OF STEP I^M PARTITION 


78 30 


12544 


K 


104645 


R 






CALL 


UCHAR 


/GET COMMAND CHAR 


7831 


12545 


R 


553764 


R 






SAD 


(72 


/ : 


7832 


12546 


R 


612552 


R 






JHP 


CTEXT 




7833 


12547 


R 


553770 


R 






SAD 


(43 


/ n 


7834 


12550 


p 


612745 


R 






JHP 


SiftlNUM 




7835 


12551 


H 


000003 


A 






ERR3 




/SYNTAX ERROR 


7836 










/ 










7837 










/START 


OF : MODIFY STEP 


CONTENTS 


7839 










/ 










7839 


12552 


R 


200207 


R 


CTEXT 


LAC 


VAL 


/SET UP R16 AGAIN 


7840 


12553 


R 


105123 


R 






CALL 


STEP 


/IN CASE OF ADDITIONAL MOD TO THIS S 


7841 


12554 


R 


200016 


A 






LAC 


R16 


/NOVE STEP TO 


7842 


12555 


R 


104573 


R 






CALL 


mUF2 


/TO STRING SUFFER 


7843 


12556 


R 


104660 


R 






CALL 


OCriARI 


/FETCH NEXT COMMAND CHAR 


7844 


12557 


R 


741200 


A 






SNA 




/EOL? 


7845 


12560 


R 


000003 


A 






ERR3 




/YES, SYNTAX ERROR 


7 8 46 


12561 


R 


040224 


R 






OAC 


TENPl 


/*12JAH14* SAVE DELIMITER 


7847 


12562 


R 


213732 


R 






LAC 


(XCOl 


/*12JAH14=^ CHAR POS = 


7848 


12563 


R 


040231 


R 






OAC 


PLACE2 


/*12JAH14t MIDDLE 



<CR> 



STEP 
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7849 


12564 


R 


045040 


R 


OAC 


SA\rE 


7850 


12 5 65 


R 


200016 


A 


LAC 


R16 


7851 


12566 


R 


7 400 30 


A 


lAC 




7852 


12567 


R 


040230 


R 


DAC 


R0IMT2 


7853 


12570 


R 


0440 3 4 


R 


RSET DAC 


ST OR 2 


7B54 


12571 


R 


200222 


R 


LAC 


OPOINT 


7855 


12572 


R 


040225 


R 


DAC 


POINT! 


7856 


12573 


R 


200223 


R 


LAC 


QPLACE 


7857 


12574 


R 


040226 


R 


DAC 


PLACEl 


7858 


12575 


R 


104770 


R 


. TRYNSC CALL 


C4AR1 


7859 


12576 


R 


612620 


R 


JMP 


POUND 


7860 


12577 


R 


741200 


A 


S^JA 




7861 


12600 


R 


000003 


A 


EPR3 




7862 


12601 


R 


040227 


R 


DAC 


TEMP2 


7863 


12602 


R 


105014 


R 


CALL 


CHAR2 


7864 


12603 


R 


612575 


R 


JMP 


TRY^SC 


7865 


12604 


R 


741200 


A 


SNA 




7866 


12605 


R 


000003 


A 


ERR3 




7867 


12606 


R 


204034 


R 


LAC 


ST0R2 


7868 


12607 


K 


040230 


R 


DAC 


PGl^tT2 


7869 


12610 


R 


205040 


R 


LAC 


SAVE 


7870 


12611 


R 


040231 


R 


DAC 


PLACE2 


7871 


12612 


R 


105014 


R 


CALL 


CHAR2 


7872 


12613 


R 


740000 


A 


NOP 




7873 


12614 


R 


200231 


R 


LAC 


PLACE2 


7 87 4 


12615 


R 


045040 


R 


DAC 


SAVE 


7875 


12616 


R 


200230 


R 


LAC 


P0I^IT2 


7876 


12617 


R 


612570 


R 


JMP 


RSET 


7877 










/MATCH HAS BtEN 


FOUND 


7878 


12620 


R 


200225 


R 


FOUND LAC 


POINTl 


7879 


12621 


R 


040222 


R 


DAC 


QPUINT 


7880 


12622 


R 


200226 


R 


LAC 


PLACEl 


7881 


12623 


R 


0402 2 3 


R 


DAC 


OPLACE 


7882 


12624 


R 


200133 


R 


LAC 


8JFF2 


7883 


12625 


R 


740031 


A 


TCA 




7884 


12626 


R 


040202 


R 


DAC 


TEMP 


7885 


12627 


R 


340016 


A 


TAD 


R1& 


7886 


12630 


R 


740031 


A 


TCA 




7887 


12631 


R 


344034 


R 


TAD 


ST0R2 


7888 


12632 


R 


040220 


R 


DAC 


IPOINT 


7889 


12633 


R 


205040 


R 


LAC 


SAVE 


7890 


12634 


R 


723061 


A 


A AC 


XCIl-XCOl 


7891 


12635 


R 


040221 


R 


OAC 


IPLACE 


7892 


12636 


R 


200133 


R 


LAC 


Bi]FF2 


7893 


12637 


R 


354015 


R 


TAD 


CSTRACC-1 


7894 


12640 


R 


040014 


A 


DAC 


R14 


7895 


126 4 1 


R 


104660 


R 


REPCH CALL 


OCHARI 


7896 


12642 


P 


741200 


A 


S^JA 




7897 


126^3 


R 


612657 


R 


JMP 


ESTR 


7898 


12644 


p 


540224 


R 


SAD 


TEMPI 


7899 


12645 


R 


612657 


R 


JMP 


ESTR 


7900 


12646 


R 


104725 


R 


CALL 


ICHARI 



/*12JAH14* 

/LOAD PTR TQ FIRST wDRD OF STEP TO BE MOD 

/IMCR TO FIRST DATA «0R0 

/SAVE PTR TO POTENTIAL FIRST CHAR OF STRING IN STEP 

/*12JAH14* 

/SET UP CHARl TO READ FIRST CHAR OF ID STRING 

/♦12JAH14* SAVE 

/*12JAH14=^ CHAR POS 

/FETCH ID STRI'MG CHAR 

/YES, STRING MATCH 

/NO, EOL BEFORE 2i^D OCCUR OF DELIMITER? 

/YES, SY*^TAX ERROR 

/SAVE CHAR 

/FETCH STEP CHAR 

/^12JAH14* IGNORED RETURf^ 

/EOL? 

/YES, ID STRING HOT FOU^O IN STEP, SYNTAX ERROR 

/MO, RESTORE P0INT2 TO CHAR OF STEP 

/^4ATCHED TO FIRST CHAR OF ID STRING 

/*12JAH14* RESTORE 

/*12JAH14* CHAR POS 



/ADVANCE 1 


CHAR 


IN STEP 


/IGNORED RETURM 






/^12JAH14* 


SAVE 






/*12JAH14* 


CHAR 


POS 




/SEEK MATCH WITH 


[ NEi^ 


SUBSTRIf^JG 



OF STEP 



/SET OP OPOINT TO READ FIRST CHAR 

/OF REPLACEMENT STRIi^G? 

/*12JAH14* SET UP 

/*12JAH14* CHAR POS 

/GET AODR OF STRING BUFFER 



/*12JAH14=^ SAVE 
/ADD STEP ADDR 



ITS 2'S COMPL 



/ADD START OF REPLACEMENT IN STEP 
/START OF REPLACEMEMT IM STRING BUFFER 
/*12JAH14>«« RESTORE 
/*12JAH14=«^ UPDATED 
/*12JAH14=^ CHAR POS 



/LAST POSSIBLE ADDR FOR STEP IM STRING BUFFER 

/FETCH CHAR OF REPLACEMENT STRING 

/EOL? 

/YES 

/*12JAH14* DELIMITER? 

/YES 

/PUT CHAR IN STRING BUFFER 
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7901. 


12647 


R 


200220 


Q 




LAC 


IPQIMT 


7902 


12650 


R 


54 014 


A 




SAD 


R14 


7903 


12651 


R 


741000 


A 




SKP 




7904 


12552 


R 


612641 


R 




JMP 


REPCH 


7905 


12653 


R 


200221 


R 




LAC 


IPLACE 


7906 


12654 


R 


553727 


R 




SAD 


(XCI3 


7907 


12655 


R 


000006 


A 




ERR6 




7908 


12656 


R 


612641 


R 




J^=P 


REPCH 


7909 


12657 


R 


200222 


R 


ESTR 


LAC 


POINT 


7910 


12660 


R 


044034 


R 




DAC 


ST0R2 


79,11 


12661 


R 


200223 


R 




LAC 


OPLACE 


7912 


12662 


R 


044340 


K 




DAC 


placf: 


7913 


12663 


R 


105014 


R 


REP2CH 


CALL 


CHAR2 


7914 


12664 


R 


740000 


A 




NOP 




7915 


12665 


R 


741200 


A 




SNA 




7916 


12666 


R 


6127 


R 




JMP 


FINRPL 


7917 


12667 


R 


104725 


R 




CALL 


ICHARI 


7918 


12 6 7 


R 


200220 


R 




LAC 


IPOINT 


7919 


32671 


R 


540014 


A 




SAD 


R14 


7920 


12672 


R 


741000 


A 




SKP 




7921 


12673 


R 


612663 


R 




vJMP 


REP2CH 


7922 


12674 


R 


200221 


R 




LAC 


IPLACE 


7923 


12675 


R 


553727 


R 




SAO 


(XC13 


7 92 4 


12676 


R 


000006 


A 




e:rr6 




7925 


12677 


R 


612663 


R 




JMP 


ReP2CH 


7926 


1 2 7 U 


R 


1U4725 


R 


FiNRPii 


CALL 


ICHARI 


7927 


12701 


R 


200133 


R 




LAC 


BJFP2 


792S 


12702 


R 


7 2 3001 


A 




AAC 


1 


7929 


12703 


R 


040227 


R 




DAC 


r£MP2 


7930 


12704 


R 


220227 


R 




LAC* 


TEHP2 


7931 


12705 


R 


653bU6 


A 




LMQiCLACiLLS+6 


7 9 32 


12706 


R 


200220 


R 




LAC 


IPOIMT 


7 9 3 3 


12707 


R 


340202 


R 




TAO 


Tm9 


7934 


12 710 


R 


723777 


A 




AAC 


-1 


7935 


12711 


R 


640614 


A 




LLS 


14 


7936 


12712 


R 


060227 


R 




DAC* 


TEMP2 


7937 


12713 




200207 


R 




LAC 


\/AL 


7938 


12714 


R 


104616 


R 




CALL 


ERMQD 


7939 


12715 


R 


213732 


R 




LAC 


(XCOl 


7940 


12716 


R 


040223 


R 




DAC 


OPLACE 


7941 


12717 


R 


200227 


R 




LAC 


TEMP2 


7942 


12720 


R 


040222 


R 




DAC 


OPOIMT 


7943 


12721 


R 


104357 


R 




CALL 


PLACl 


7944 


12722 


R 


204034 


R 




LAC 


StOR2 


7945 


12723 


R 


040222 


R 




DAC 


OPOINT 


7946 


12724 


R 


204340 


R 




LAC 


PLACE 


7 94 7 


12725 


R 


04022 3 


R 




DAC 


OPLACE 


7t»/»p 


12726 


P 


105201 


*? 




CALL 


CHECK 


7949 


12727 


R 


104645 


R 




CALL 


OCHAR 


7950 


12730 


R 


741200 


A 




SNA 




7951 


12731 


R 


612735 


R 




JMP 


vRLI^JE 


7952 


12732 


R 


104660 


R 




CALL 


OCHART 



/2nD CHAR OF 25rH wORD 3F STEP BUFFER? 

/*12JAH14* LAST WORD OF BUFFER 

/tl2JAH14t NOT LAST ^ORD 

/*12JAH14* CHAR POS = 

/*12JAH14* LAST? 

/YES, ^^AXIM ERROR --- TOO MANY CHARS 

/SAVE COMMAND PTR 

/*12JAH14* SAVE 

/*12JAHi4* CHAR POS 

/GET REGAINING CHARS IM STEP 

/DONE? 

/YES 

/PUT CHAR IN STRIMG BUFFER 

/2ND CHAR OF 25TH WD OF STEP BUFFER? 

/*12JAH14* LAST '^ORO OF BUFFER 

/*12JAH14* NOT LAST WORD 

/*12JAH14* CHAR POS = 

/*i2JAH14* LAST? 

/YES, >4AXIM ERROR TOO MANY CHARS 

/ADD EOL 



/2ND wRD OF STEP (IN STRIMG BUFFER) 



/*12JAH14* SUBTRACT START OF STRING BUFFER 
/DECRE^viENT TO GET PROPER STEP COUNT 
/INSERT NEW STEP COU^T 
/RETURN! TO 2MD ^'^ORD 

/ERASE OLD STEP 
/*12JAH14* CHAR POS = 
/*12JAH14* MIDDLE 

/SET UP PTR TO ME'W STEP 
/PUT NEW STEP m PARTITION 

/RESTORE COMMAND PTR 

/*12JAH14* RESTORE 

/*12JAH14* CHAR POS 

/RESTORE PTRS TO EXECUTING STEP IF NEC 

/GET CHAR AFTER REPLACEMENT STRING 

/EOL? 

/YES, WRITE STEP IF IM DIRECT MODE 

/NO, CLOSING DELIMITER IMSERTED; FETCH MXT CHAR 
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7 95 3 


12733 


R 


553767 


R 


SAD 


(54 




7954 


12734 


R 


612552 


R 


JNP 


CTEXT 




7955 


12735 


R 


220145 


R 


WRLINE LAC* 


LVAR 




7956 


12736 


R 


740200 


h 


SZA 






7957 


12737 


R 


603573 


R 


JlVfP 


DTABLK 




7958 


12740 


K 


200207 


R 


LAC 


VAL 




7959 


12 7 41 


R 


105123 


R 


CALL 


STEP 




7960 


12742 


R 


200207 


R 


LAC 


VAL 




7 961 


127 43 


R 


107066 


R 


CALL 


A/RSTEP 




7962 


127 44 


R 


603573 


R 


JMP 


OTABLE 




7963 










/ 






7964 










/STARI OF #MODX 


FY S EP 


wUMBER 


7965 










/ 






7966 


12745 


R 


2 0016 


a 


S^^JUM LAC 


R16 




7967 


12746 


R 


045123 


R 


DAC 


STEP 




7968 


12747 


R 


744000 


A 


CLL 






7969 


12750 


R 


107163 


R 


CALL 


EVAL 




7970 


12751 


R 


560145 


R 


SAD* 


LVAR 




7971 


12752 


R 


000015 


A 


ERP15 






7972 


12753 


R 


74130U 


A 


SPA i SNA 






7973 


12 7 5 4 


R 


000005 


A 


ERRS 






7974 


12755 


R 


653323 


A 


IDiy ; 


144 






12756 


R 


000144 


A 








7975 


12757 


R 


741200 


A 


SNA 






7976 


12760 


R 


000014 


A 


e:rri4 






79 7 7 


12761 


R 


205123 


R 


LAC 


STEP 




7978 


12762 


R 


104573 


R 


CALL 


MBUF2 




7979 


12763 


K 


200207 


R 


LAC 


VAL 




7980 


12764 


R 


060133 


R 


DAC* 


BUFF2 




7981 


12765 


R 


225123 


R 


LAC* 


STEP 




79B2 


12 766 


R 


104616 


R 


CALL 


ERMOD 




7983 


12767 


R 


220133 


R 


LAC* 


BUFF2 




7984 


12770 


R 


040207 


R 


DAC 


VAL 




7985 


12 7 71 


R 


200222 


R 


LAC 


QPOINT 




79B6 


12772 


R 


045123 


R 


DAC 


STEP 




7997 


12773 


R 


200223 


R 


LAC 


OPLACE 




7988 


12774 


R 


044616 


R 


DAC 


ERi^OD 




79fi9 


12775 


R 


213730 


R 


LAC 


(XCIl 




7990 


12776 


R 


040221 


R 


DAC 


IPLACE 




7991 


17777 


P 


213732 


R 


LAC 


(xcni 




7992 


13000 


R 


040223 


R 


DAC 


QPLACE 




7993 


13001 


R 


200133 


R 


LAC 


BUFF2 




7994 


13002 


R 


723001 


A 


AAC 


1 




7Q9S 


13003 


R 


040222 


P 


DAC 


OPDIMT 




7996 


13004 


D 


340214 


R 


TAD 


^ 




7 99 7 


1 3005 


R 


4 0220 


R 


DAC 


IP13IMT 




799B 


13006 


R 


104357 


R 


CALL 


PLAC1 




7999 


1 3007 


p 


205123 


R 


LAC 


STEP 




8 


13010 


R 


040222 


R 


DAC 


OPOINT 




80 01 


1 3011 


R 


204616 


R 


LAC 


ERMGD 




B002 


13012 


R 


4 2 2 3 


Q 


DAC 


OPLACE 




8003 


1301 3 


R 


105201 


R 


CALL 


CHECK 





/COMMA MEANS ADOIT, MODS. TO THIS STEP 



/IN DIRECT MODS? 
/NO 



/SAVE PTR TO 1ST ^'ORO OF STEP TO BE REfMUM, 

/GET NEW STEP NO 
/REPLACl^JG EXECUTING STEP? 
/YES, STEPS ERROR 
/iMEG OR ZERO? 
/YES, MINUS ERROR 



/ZERO FRAC STEP? 
/YES,FRACT ERR 

/?^GVE STEP TO STRING BUFFER 

/REPLACE STEP # 

/ERASE OLD STEP 

/NEiAf' STEP # 

/SAVE COMMAND PTR 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* SET UP 

/*12JAH14* OUTPUT CHAR POS 

/*12JAH14* AND 

/*12JAH14* INPUT CHAR POS 

/POINT TO 

/2MD 

/ (STEP COUMT) 

/AiND LAST WORD OF STEP (IN STRING BUFFER) 

/INSERT NEW STEP 

/RESTORE COMMAND PTR 

/*12JAH14* RESTORE 

/*12JAH14* CHAR POS 

/RESTORE PTRS TO EXECUTIIyG STEP IF NEC 
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8 00 4 
8005 
B006 
8 00 7 
8008 
8009 



:^ U '^ P S 100 



coMMAiMO prd; 



13 014 R 

1 3015 R 

13016 R 

13017 R 



104645 
553767 
6125 35 
603573 



ESSORS 




CALL 


QCHAR 


SAO 


(54 


JHP 


'iOONET 


JMP 


0TA8LE 


.ENOC 





/COi^MA MEAMS AOOITIOMAU^ STEP UD CHANGES 



•EJECT 



PAGR 207 



^^U'^PS 100 



COMMAND PROCESSORS 



8010 
8011 
8012 

8013 
8014 
8015 
8016 
801? 

801 B 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 

802 7 
B028 
B 2 9 
8 30 
8031 
8032 
8033 
8034 
8 35 
8036 
8037 
8038 
8039 



/PROCESS THE PRIMT COMMAivID - OUTPUT AMY ASCII CODE 



13020 
13021 
1 3022 
13023 
13024 
130 2 5 
1 3 02 b 
13027 
13030 
13031 
13032 
13033 
13034 
13035 
13036 
13037 
1304 
13 41 
13042 
1 3043 
1 30 44 
13045 
13046 
1 3047 
13 5 
13051 
13 5 2 
1 3053 



1 7 1 7 
744400 
00 4 
107163 
144710 
513657 
652000 
200020 
540162 
741000 
613037 
641002 
514016 
554017 
613050 
554020 
741000 
613045 
220151 
353715 
060151 
214021 
043174 

603253 
1C4645 
553767 
6 13023 
607010 



PRINT 



priimto 



PRINT3 



PRINT2 



PRINIl 



CALL 

SNL'CLL 

ERR4 

CALL 

DZ^ 

AMD 

L^iQ 

LAC 

SAD 

SKP 

JMP 

LACQ 

AND 

SAD 

JMP 

SAD 

SKP 

JMP 

LAC* 

TAD 

DAC* 

LAC 

DAC 

JMP 

CALL 

SAD 

JMP 

JMP 

.EJECT 



SETIO 



EVAL 

SUBOPT 

(77777 

R20 
PRNCnv 

PRINT3 

(277 
(200 
PRIMTl 
(12 

PRIMT2 

yVAR 

(144 

YVAR 

(PRI^iTl 

OUT 

XaUT4A 

OCHAR 

(54 

PRINTO 

?\?EXT2 



/SET UP FOR CORRECT DEVICE 

/^UST HAVE A NUMERIC ARGUi^ENT 

/"CMMND" 

/*12JAH12* 

/SUBOPT USED AS SPACIM3 COUNTER 



/IS PRINCIPAL DEVICE 
/USER'S TERMINAL? 

/ c • « I Ci o 

/•••NO 

/FETCH P VALUE 

/GET 8 BITS 

/REf^DTE BREAK TO 

/REMOTE BREAK TO 

/LF 



IN OUT 



SELF? 
SELF MOT 



PERMITTED 



/FUDGE OUTPUT 



/I'UJAHU^*^ COMMA, PROCESS NEXT ARG 
/DONE 



PAG=: ?08 WUMPS 100 COMMAND PhDCESSORS 



8 40 










/PRQCKSS THE 


QU 


IT COWH 


80 41 


1 3054 


Q 


20020 3 


H 


QUIT 


LAC 




FORTST 


8042 


1 3055 


H 


751201 


A 




SMAiC 


:la 


* C i^ A 


804 3 


1 3056 


R 


623535 


R 




JMP* 




DISPAT 


80 4 4 


13057 


R 


340203 


R 




TAD 




FORTST 


8 45 


1 3060 


R 


402 3 


R 




DAC 




FORTST 


8 46 










/###»# 


POPSTACK 


8047 


1 3 061 


k 


mux 


ft 




LAW 




-7 


8048 


13062 


K 


105103 


R 




CALL 




U-NiSAVK 


8049 


13063 


H 


7 40000 


^ 




NOP 






8050 


130 6 4 


R 


740000 


A 




NOP 






8051 


13065 


F 


740000 


A 




NOP 






8052 


1 3066 


B 


040245 


R 




DAC 




T3 


8 05 3 


13067 


R 


4 24 4 


R 




DAC 




T2 


8054 


13070 


R 


040243 


R 




DAC 




Tl 


8055 


1 3 71 


R 


040235 


R 




DAC 




FORVAR 


8056 










/##### 






##### 


8057 


13072 


R 


603573 


R 




JMP 




DTABLE 


805 8 












.EJECT 





###«# 



/FIRST b:xit 

/QUIT OUT OF A FOR CDMvJA^D 



/*12JAH14=^ 

/DON'T restore; *12-3=S' 

/*12JAH14* 

/LAST T^^O WORDS OF STACK *i2-3* 



PAGK :?09 



■ f I M P S 



1 ( ' 



COMv!A^mD pkqckssors 



B0b9 










/PROCESS THE REAi) COMMAND 






8060 










/ 












8061 


13073 


H 


107107 


R 


READ 


CALL 


SETin 








8 6 2 


13074 


R 


7 4 5 4 


A 




SZLiCLL 






/READ ALL? 




806 3 


13075 


R 


61 J152 


R 




JM.P 


READl 








8 06 4 


13076 


R 


220145 


P 




LAC* 


LV'AR 




/YES, msT 


BE IN DIRECT MODE 


8066 


13 7 7 


u 


750201 


A 




SZAiCLC 






/SET ACC TO -1 FOR SAVE *12JAH9 


8066 


1 3100 


R 


000004 


A 




ERR4 






/ CNMI^JO ERROR 


8067 


13101 


R 


777776 


A 




LA^ 


-2 




/*12JAH14=«= 




B06H 


1 3102 


R 


105040 


R 




CALL 


SAVE 




/SAVE OIREC 


:T *12JAH9i« 


8069 


1 310 3 


R 


200222 


R 




LAC 


npoii^T 




/COMMAND POINTER *12JAH9* 


8 07 


1 3104 


R 


20 2 2 3 


R 




LAC 


OPLACE 




/^12JAH14=»= 


CHAR POS 


8071 


13105 


R 


2137 32 


R 


READO 


LAC 


(XCOl 




/tl2JAH14* 


I^IT 


8072 


13106 


R 


040223 


R 




DAC 


OP LACE 




/*12.JAH14* 


CHAR POS PTR 


8073 


13107 


R 


213730 


R 




LAC 


(XCIl 




/1=12JAH14* 


X N I T 


8 7 4 


13110 


R 


040221 


R 




DAC 


IPLACE 




/^\2je^Hy^t 


CHAR POS PTR 


8075 


13111 


R 


200133 


R 




LAC 


BUFF2 




/*12JAH14* 


SETUP TO STR AC 


8076 


1 3 U 2 


H 


040220 


R 




DAC 


IPOINT 




/*12JAH14* 


AS IF IT ^ERE, THE 


8077 


13113 


R 


040222 


R 




DAC 


OPOIMT 




/*12JAH141= 


DIRECT CO^MA^jD BUFFER 


8 7 8. 


UU-* 


R 


103325 


R 




CALL 


P AC KEN 


/FILL BUFFER 




8079 


13115 


R 


000015 


a 




ERR15 




/'*N)0 


",U ALLOWED 




8 8 


1 3116 


R 


104660 


R 




CALL 


OCHAPI 


/GET 


' 1ST CHAR OF LI 


[f^E A?^D TEST IT 


8081 


13117 


R 


10 3724 


R 




CALL 


SYNTAX 








80S2 


13120 


R 


00000 3 


A 




h:rr3 




/A-" 


S^NTX" 




8083 


13121 


R 


613142 


R 




J MP 


READOA 


/W' 


[NUMERIC GO PLACE STEP 


8084 


13122 


R 


740200 


A 




SZA 




/p«- 


IS IT EOM 




8085 


13123 


R 


000004 


a 




ERR4 




/iNiO 


C^mo ERROR 




60B6 


13124 


R 


213732 


R 




LAC 


txcoi 




/*12JAH14* 


IMIT 


8087 


13125 


R 


04022 3 


R 




DAC 


GPLACE 




/*12JAH14* 


INPUT 


8088 


13126 


R 


213730 


R 




LAC 


(XCIl 




/*12JAH14* 


AND OUTPUT 


8089 


13127 


R 


040221 


R 




DAC 


tPLACE 




/^l23kHl^^ 


CHAR POS PTR 


8090 


13130 


R 


200133 


R 




LAC 


3UFF2 




/*12JAH14* 


READ m MEXr LINE 


8091 


13131 


R 


040220 


R 




OAC 


IPOINT 




/'i'UJAHH* 




8 09 2 


13132 


R 


040222 


R 




DAC 


QPOINT 




/*12JAH144; 




8093 


1 31 33 


R 


103325 


P 




CALL 


PACKEM 








8094 


13134 


R 


000015 


A 




EPR15 










8095 


13135 


R 


104660 


R 




CALL 


OCHARI 


/GET 


' 1ST CHAR 




8096 


13136 


R 


103724 


R 




CALL 


S^^NTAX 


/AND 


1 CHECK IT 




8097 


13137 


R 


000003 


A 




eRR3 




/A-- 


SXHThX ERROR 




8098 


1 3140 


R 


741000 


A 




SKP . 




/M-- 


•GO PLACE STEP 




8099 


13141 


R 


613144 


R 




JMP 


READOB 


/p«. 


TERMINATE PROGRAM LOADING *12JAH9* 


8100 


1 3142 


R 


104340 


R 


READOA 


CALL 


PLACE 








8101 


1314 3 


R 


613105 


R 




J^4P 


READO 


/GO 


BACK FOR NEXT C 


:OMNAND LIME 


8102 


1 31 44 


R 


777776 


A 


RE A DOB 


LA,v 


-2 




/^12JAH14=^ 




8103 


13145 


R 


105103 


R 




CALL 


U MS AVE 




/RESTORE DIRECT 'fUJAHg* 


B 1 4 


1 3146 


R 


040223 


R 




DAC 


OPLACE 




/*12JAH14* 


CHAR POS PTR 


8105 


1314 7 


R 


040222 


R 




DAC 


OPOINT 




/C0M^4AMD POI^JTER =*=12JAH9* 


8106 


1 315^ 


R 


104645 


R 




CALL 


OCHAR 




/FETCH NEXT CO^MA^ID CHAR 't^nJAH 


8107 


13151 


P 


6 7 010 


R 




JMP 


NEXT2 




/EXECUTE NEXT COMMAND *12JAH9* 


81 OB 










/ 












8109 










/READ A 


STRING ■ 


VARIABLE 






- 


8110 










/ 













PAGfc 210 


^^u^-ps 


100 


n 


O^IMAMD PRO 


CESSORS 




811 1 


3 3152 


1^ 


10 6673 


R 


REAOl 


CALL 


F0R-1AT 


8112 


J 3 1 5 3 


R 


741400 


A 




SZL 




8113 


13154 


R 


00000 3 


A. 




ERR3 




8114 


13155 


R 


105304 


R 




CALL 


ASSEM 


8115 


13156 


p 


220144 


R 




LAC* 


^!\/AR 


8116 


13157 


H 


740031 


A 




TCA 




B117 


1316 


H 


060154 


R 




DACf^ 


PRTEMD 


81 IS 


1316 1 


P. 


213730 


R 




LAC 


(XCIl 


8119 


13162 


R 


040221 


R 




DAC 


IPLACE 


8120 


1 3 1 6 3 


R 


200133 


R 




LAC 


8UPF2 


8121 


13164 


K 


040220 


R 




DAC 


IPOINT 


B122 


13165 


R 


103325 


R 




CALL 


PACKEM 


8123 






013166 


R 


REAOiA= 


• 




8124 
















8125 


13166 


R 


613161 


R 




JHP 


."5 


8126 


13167 


R 


200221 


R 




LAC 


IPLACE 


8127 


1317 


R 


553727 


R 




SAD 


(XCI3 


8125^ 


13171 


R 


613175 


R 




JMP 


.+4 


8129 


1317 2 


R 


750000 


A 




CLA 




B 1 3 t.J 


1317 3 


R 


1 4 ? 2 5 


R 




CALL 


ICHARI 


e 1 3 1 


1317 4 


R 


613167 


P 




JMP 


.-5 


8132 


13175 


1^ 


200133 


R 




LAC 


BLfFF2 


8133 


13176 


R 


7 4 0001 


A 




C^A 




813 4 


13177 


H 


300220 


R 




ADD 


IPDINT 


8135 


13 2 




513702 


R 




kHD 


(77 


8 13 5 


13201 


R 


55 3 7 02 


R 




SAD 


(77 


8137 


13 2 2 


R 


750000 


A 




CLA 




8138 


13203 


K 


6 5 5 o 


A 




CLQ'LRS 


+ t) 


8130 


13 2 4 


R 


220133 


R 




LAC* 


BUFF? 


8140 


1 3205 


R 


513645 


R 




AND 


(7777 


8141 


13206 


R 


640002 


A 




OMQ 




8142 


13207 


R 


060133 


R 




OAC* 


81JFF2 


8 1 4 3 


13210 


R 


754001 


A 




CLAiCf^JA 


iCLL 


8144 


13211 


ht 


040207 


R 




DAC 


V'AL 


8145 


13212 


9 


606770 


R 




JHP 


F0RM2 


814 6 












•EJECT 





/' PREFIX ILLEGAL 

/SETUP WATCHDOG COUNTDQ^N 



/*12JAH14* 
/*12JAH14* 
/*12JAH14* 
/*32JAH14* 



IHIT 

CHAR 



OUTPUT 

POS PIR 



/THIS LABEL USED BY >1UDC. TO DETERMINE IF READ 

/OF STRIMG VARIABLE UP3M DE^^TRY FROH PACKEM 

/*12JAH14* 

/*12JAH14* 

/*12JAH14* 

/♦12JAH14* 

/*12JAH14* 

/*12JAril4* 

/*12JAH14* 



POS PTR 

PT TO LAST CHAR IN WORD 

YES 

NO OUTPUT MULL CHAR 

TEST FOR LAST CHAR AGAIN 



/IS IT ZERO LEn( 
/YES, ^lAKE SURE 



;rH? 

OFFSET IS 



ZERO 



/*12JAH1?* 
/*12JAH17* 



211 



;i«ps 



100 



COMMAND PKDCESSORS 



8147 










/PROCE: 


5S THE SET CO^mA? 


ID 


814B 


13 213 


R 


744400 


IX 


SET 


SNL'CLL 






8149 


13 214 


R 


000004 


A 




ERR4 






B150 


13215 


R 


104660 


R 




CALL 


OCHAPI 




8151 


13216 


R 


554001 


R 




SAD 


(36 




8152 


13217 


R 


610073 


R 




J MP 


GPUT 




8153 


1 3220 


R 


104710 


R 




CALL 


SUBOPT 




8154 


13221 


R 


105 3 04 


R 




CALL 


ASSEM 




8155 


13222 


R 


553762 


R 




SAD 


(75 




8156 


1 3223 


s^ 


741000 


A 




SKP 






8157 


13224 


R 


00000 3 


A 




ERR3 






8158 










/#§#??# 


SAVE ON 


STACK 


it M ■ a .i 
tt ft I' # *t 


815^ 


13225 


p 


777776 


A 




LA'Al 


-2 




8160 


13226 


K 


105040 


R 




CALL 


SAVE 




8161 


13227 


R 


200204 


R 




LAC 


SYMS 




8162 


13230 


R 


200205 


' R 




LAC 


SCRIPS 




9163 










/##### 






# » # # # 


8164 












.IFPiNiZ 


FMONEY 




8165 


13231 


R 


750030 


A 




CLAIIAC 


/FLOAT= 


= 1 ^^EANS 


81d6 


13232 


R 


040212 


R 




DAC 


FLOAT 


/s^iHlCri 


8167 












.EMDC 






8168 


13233 


R 


744002 


A 




STL 






8169 


13234 


R 


107163 


R 




CALL 


EVAL 




817 












.IFPMZ 


FNOMEY 




8171 


13235 


R 


140212 


R 




DZM 


FLOAT 


/SA CA 


8172 












.ENDC 






8173 










/##### 


POPSTACK 


##### 


8174 


13236 


R 


777776 


A 




LAW 


-2 




8175 


13237 


R 


105103 


R 




CALL 


UNSAVE 




8176 


1 3240 


R 


040200 


R 




DAC 


SCRIP 




817 7 


13 2 41 


R 


040177 


R 




OAC 


St^ 




8178 










/##### 




###«# 




8179 


13242 


R 


754002 


A 




STLiCLA 






81^0 


13243 


R 


10 5434 


R 




CALL 


SYMSOL 




8181 


13244 


R 


104645 


R 


SET2 


CALL 


QCHAR 




818? 


1 3 2 45 


p 


553767 


R 




SAD 


(54 




818 3 


13246 


R 


613215 


R 




JMP 


SET + 2 




8184 


13247 


R 


603574 


R 




Ji^P 


DTABLE+1 


8185 












•EJECT 







/ " C M M H D " 



/ = 



/"SY^lIK" 



THIS IS THE ONLY PLACE FRQH 
$A CAN BE CALLED! i i ! 1 



BE USED ^HZn FLOAT=0 



/ PUT 



/CONMA 



PAGe 2)2 


M:|MPS 


100 


Z' 


OMMAND PF 


taCESSDRS 




8186 










/PROCE 


:SS THE TYPE COMMA 


8187 


13250 


R 


10 710 7 


H 


TYPE 


CALL 


SPIT 10 


B188 


13251 


R 


744400 


A 




SNLiCLL 




818^ 


13252 


p 


613301 


R 




JMP 


TALL 


8190 


13253 


R 


106b73 


R 




CALL 


FORMAT 


8191 


13254 


u 


745402 


h 




SZLiCLL 


ICML 


8192 


. 13255 


-4 


613274 


R 




JMP 


TYPE3 


8ia^ 


13256 


R 


10 716 3 


R 




CALL 


E\^AL 


8194 


13257 


R 


553741 


R 




SAO 


(777777 


819B 


1 3260 


R 


613263 


R 




JMP 


TYPE2 


8196 


13261 


R 


104255 


R 




CALL 


DECOUT 


8197 


1 3262 


R 


606777 


R 




JMP 


^£XT 


8198 


13263 


R 


200133 


R 


TYP£2 


LAC 


aaFF2 


8199 


13264 


R 


040225 


R 




DAC 


POI^Tl 


8200 


13265 


R 


213732 


R 




LAC 


CXCOl 


8 201 


13266 


R 


040226 


R 




DAC 


PLACFl 


8202 


13267 


R 


140224 


R 




DZM 


TEMPI 


8203 


13270 


R 


104770 


R 




CALL 


CHARl 


8204 


13271 


R 


606777 


R 




JMP 


MEXT 


8205 


13272 


R 


10 317 4 


H 




CALL 


GUT 


8 206 


1 3273 


R 


61 3270 


R 




JMP 


.-3 


8 20 7 


13274 


R 


107163 


R 


TYPE3 


CALL 


EVAL 


820 8 


13275 


R 


553741 


R 




SAD 


(777777 


8209 


132 7 6 


R 


613263 


R 




JWP 


TYPE2 


8210 


1 3277 


R 


104320 


H 




CALL 


OCTUUT 


8 211 


1 3300 


R 


606777 


R 




JMP 


NEXT 


8212 










/ 






821 3 


13 303 


K 


200170 


R 


TALL 


LAC 


S^MSEG 


8214 


1 3302 


R 


040017 


A 




DAC 


R17 


8215 


13 303 


R 


750000 


A 


TALLl 


CLA 




H?.\h 


1 3 3 4 


R 


103174 


R 




CALL 


OUT 


8217 


1 3305 


r> 


200017 


A 




LAC 


R17 


8218 


1 3306 


R 


740030 


6 




lAC 




8219 


13307 


R 


540153 


R 




SAD 


SYMEWD 


8220 


13310 


R 


606777 


R 




J 'MP 


^NiEXT 


8221 


13 311 


R 


220017 


A 




LAC* 


R17 


8 222 


I 3 3 1 2 


R 


045040 


R 




DAC 


SAVE 


8223 


13 313 


R 


777775 


A 




LAW 


"3 


8224 


13 314 


R 


045103 


R 




DAC 


U MS AVE 


8225 


13 315 


R 


205103 


R 


TAIL 2 


LAC 


flNSAVE 


8226 


13316 


R 


043712 


R 




DAC 


OTEXT 


8227 


13317 


R 


2050 40 


R 




LAC 


SAVE 


822R 


1 3 3 2 f ) 


R 


7 410 


A 




SKP 




822^ 


1 3 321 


R 


640505 


A 




LRS 


5 


8230 


13322 


R 


443712 


R 




ISZ 


OTEXT 


8231 


13 3 2 3 


R 


613321 


R 




JMP 


.-2 


8 2 3 2 


13324 


R 


513655 


R 




A M D 


(37 


8233 


13 325 


p 


553751 


P 




SAD 


(35 


82 3 4 


13326 


R 


760045 


A 




LA^ 


45 


8235 


1 3327 


R 


553713 


R 




SAO 


(34 


8236 


1 V3 3 


R 


760044 


A 




LA 'A/ 


44 


8237 


13 3 31 


R 


740200 


A 




SZA 





/TYPE ALL 



/TYPE A STRING 




/*12JAH14=S= INIT 




/*12JAH14=«= CHAR 


POS 


/TERMINATOR FOR 


CHARl 


/GET CHAR 




/DONE 





/STRING 



/ TYPE ALL VARIABLES IH CORE 



/ CRLF 



/ MO MORE VARIABLES IN CORE 
/ GET NEXT VAR'S fMME 



PAGE 21,3 


M i j M P s 


100 




iJviviANO PR' 


3CESS0RS 




823B ■ 


13 332 


R 


103174 


R 




CALL 


our 


823-5 


1 3333 


p 


445103 


R 




ISZ 


U^'^SAVE 


8240 


1 3334 


^ 


613 315 


R 




JHP 


TALL2 


82^1 


13335 


R 


205040 


R 




LAC 


SAVE 


R24? 


13 3 3b 


Q 


742110 


A 




SWAIRTL 




8243 


13337 


K 


613357 


R 




J?^1P 


TARRAY 


8244 


1 3 340 


R 


7 6 00 7 5 


A 




LAW 


75 


B245 


13341 


R 


103174 


R 




CALL 


OUT 


8246 


13342 


P 


205040 


R 




LAC 


SAVE 


8247 


13343 


R 


742010 


A 




RTL 




824^^ 


13 3 4 4 


R 


741400 


A 




SZL 




824'^ 


1 3345 


R 


613351 


R 




J*4P 


.f4 


8 25 


13346 


R 


220017 


A 




LAC* 


R17 


8251 


13347 


R 


104255 


R 




CALL 


OECOIJT 


8252 


13350 


R 


613303 


R 




JMP 


TALLl 


8253 


13351 


R 


107021 


R 




CALL 


TSTR 


8254 


13 3 52 


R 


613303 


R 




JMP 


TALL! 


8255 










/ 






8256 












• IPPf^Z 


PMOWEY 


8257 


13 3 5 3 


H 


2 00017 


A 


rALL4 


LAC 


R17 


9 25ft 


13 35 4 


R 


7 2 300 4 


A 




AAC 


4 


8259 


1 3355 


R 


40017 


A 




DAC 


R17 


B?bO 


1 3356 


R 


613303 


R 




JMP 


TALLl 


82bl 












• ENDC 




8252 










/ 






8263 






013357 


R 


TARRA)^: 


- • 




8264 












.IFPNZ 


F^^OWRY 


82o5 


13 3 5 7 


R 


7 40 40 


A 




SimL 




8266 


13360 


R 


613353 


R 




JMP 


TALL 4 


8267 












.EMDC 




B2b« 


13361 


R 


220017 


A 




LAG'J' 


R17 


8269 


13362 


R 


300017 


A 




ADO 


R17 


8 270 


1.336 3 


R 


045103 


R 




DAC 


UNSAVE 


8271 


13364 


K 


760050 


A 


TARPl 


LAW 


50 


8272 


13365 


R 


103174 


R 




CALL 


OUT 


8273 


13366 


R 


220017 


A 




hhC* 


R17 


8274 


13367 


R 


741100 


A 




SPA . 




8275 


13370 


K 


613407 


R 




JMP 


TASTR 


8276 


13371 


R 


104255 


R 




CALL 


OeCOdT 


8277 


1 3372 


R 


760051 


A 




LA^ 


51 


8278 


13373 


R 


103174 


R 




CALL 


OUT 


8279 


13374 


R 


760075 


A 




LAW 


75 


8280 


1 3375 


R 


103174 


R 




CALL 


OUT 


82«1 


13376 


R 


220017 


A 




LAC'*' 


R17 


8282 


13377 


D 


104255 


R 




CALL 


DGCOUT 


8 28 3 










/ 






8284 


1 3 4 


R 


200017 


A 


TARR2 


LAC 


R17 


82^5 


1 3^<^1 


Q 


545103 


R 




SAO 


'HSAVE 


8286 


13402 


R 


613303 


R 




J^IP 


TALLl 


8287 


1 3 4 3 


R 


750000 


A 




CLA 




8288 


13 4 4 


R 


103174 


R 




CALL 


OUT 


8289 


13405 


R 


760040 


A 




LAvil 


40 



/^NiEXT CHAR 



/ ITS AM ARRAY? GO TYPE IT 



/ = 



/ ITS A 'MUMBRIC VAR? GET ITS VALUE 
/ TYPE VAR'S VALUE 

/ IT'S A STRI.MG VAR? GO TYPE IT 



/SKIP OVER 4 WORDS 
/(LE'SJGTH OF P.P. VAR) 



/FhOkTlNG POINT? 

/YES, PRINT MULL STRING 



/iMO, ARRAY 



/ POINTER TO MEXT VAR 



( 

GET 



SUBSCRIPT 



GO TYPE STRING 
TYPE SUBSCRIPT 



VAR 



/ ) 



GET VAR'S VALUE 
AK^D TYPE IT 



/ END OP ARRAY 



CRLF 
SPACE? 



INDENT REST OF ARRAY 



PAQF. 214 



^■PS 3 00 



COMMAND PRDCESSOFS 



8290 


1 3406 


f^ 


613 3 6 5 


R 




JHP 


TARRI+l 




8291 










/ 








B292 


13 407 


R 


7 4 1 


A 


TASTR 


CHA 






829^ 


13 41 


R 


10 4 2 5 5 


R 




CALL 


OECOIJT 


/ TYPE SUBSCRIPT 


8294 


13411 


p 


760051 


A 




LAi-v 


51 




8295 


13 412 


P. 


103174 


P 




CALL 


OUT 


/ ) 


8296 


13 413 


P 


760075 


A 




LA^ 


75 




8297 


1 3414 


R 


10 317 4 


R 




CALL 


OUT 


/ = 


8298 


1 3 4 1 5 


K 


1 7 2 1 


R 




CALL 


TSTR 




8299 


13416 


R 


613401 


R 




JMP 


TARR2+1 




8300 












•EJECT 







PAG'i: 215 



KUMPS 100 



lOMMAMD PROCESSORS 



8301 










/PROCESS THE WRITS COMMj 


AND 


8 30 2 


13 417 


D 


107107 


R 


WRITE 


CALL 


SETIO 




8303 


1 3420 


R 


745400 


A 




SZLiCLL 






8304 


13421 


R 


613441 


R 




JMP 


^RITCl 




8305 


13422 


Q 


200134 


R 




LAC 


BUFF 


/A'RITE ALL 


8306 


13423 


K 


040016 


A 




DAC 


R16 




R307 


1 3424 


R 


2 2 1 6 


A 




LAC'*^ 


R16 




830R 


13425 


« 


653606 


A 




LMQ'CLAC»LLS-<.6 




8309 


1 3426 


R 


300016 


A 




ADD 


R16 




8 310 


13427 


H 


540167 


R 




SAD 


5^0 




8311 


1 3430 


R 


6J3462 


R 




JMP 


^RITE3 


/PGM BUFFER EMPTY 


8312 


1 3431 


K 


040016 


k 




DAC 


R16 




831 3 


13432 


R 


220016 


A 




LAC* 


R16 




8314 


13433 
1 3434 


R 
R 


653323 
000144 


A 
A 




IDIV? 


144 




8 315 


13435 


R 


641002 


A 




LACQ 






8 316 


13436 


R 


040207 


R 




DAC 


VAL 




8317 


13437 


R 


107041 


R 




CALL 


^^RPART 




8 31 B 


13440 


R 


613437 


R 




JMP 


.-1 




8319 










/v^RlTfc 


A PART OR A STEP 




8 3 2 


1 3 44 1 


R 


7 44000 


A 


wRTTfil 


CLL 




/MUMERIC RESULT ONLY 


8321 


13442 


K 


107163 


R 




CALL 


e\^AL 




8322 


13443 


f' 


74510O 


A 




SPAICLL 






8323 


1 3 4 4 4 


R 


n 5 


A 




ERRS 




/"MIMIJS" 


8324 


13445 
13446 


R 

R 


653323 

000144 


A 
A 




lOIV? 


144 




8325 


13447 


R 


740200 


A 




SZA 






8 3 2 6 


13450 


P 


13 46 


ft 




JNP 


'^Rife2 




8327 


13451 


R 


105151 


R 




CALL 


PART 


/y^RITE A PART 


8328 


13452 


Q 


107041 


R 




CALL 


^RPART 




8329 


13453 


R 


760000 


A 


WRlTe4 


LAW 





/END OUTPUT OF A PART 


8 3 3 


13454 


R 


103174 


R 




CALL 


OUT 


/OR A ^'RITE ALL 'a^ITH 2 


8331 


13455 


R 


7 6 0000 


A 




LA v^ 







8332 


13456 


R 


103174 


R 




CALL 


OUT 




8333 


13457 


P 


613462 


R 




JMP 


AmiTE3 


/ 


8334 


1 3460 


R 


10512 3 


R 


s^RITE2 


CALL 


STEP 


/WRITE A STEP 


8335 


1 3461 


R 


107066 


R 




CALL 


v^RSTEP 




8336 


13462 


R 


104645 


R 


WR1TE3 


CALL 


OCHAR 




83?7 


1 3463 


R 


553767 


R 




SAD 


(54 




8 3 3 8 


1 3 46 4 


P 


613 4 41 


R 




JMP 


'^RITFI. 




8339 


13465 


R 


652000 


A 




hm 






8340 


13466 


R 


607011 


R 




JN^P 


^MSXTl 




8341 












.EJECT 







sVULL STRINGS 
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COMMAND PROCESSORS 



8 34 2 










/SPECIAL X CONSM 


AND TG 


8343 










/ 






8344 












.DEC 




8345 






00 


A 


,.A=40 9 6/6LOCK*64*RF15 


8346 






001600 


A 


,.0=:.. 


C-l/BLOCK+1 


8347 












• OCT 




8 34 8 


1 3467 





140252 


R 


XCOM 


DZ*^ 


GHI 


B34Q 


1 3 4 7 


Q 


741400 


A 




SZL 




8350 


13471 


k 


44U252 


R 




ISZ 


GHI 


8351. 


1 3472 


R 


105272 


R 




CALL 


KEYCHK 


8352 


1 3473 


R 


234067 


e: 




LAC* 


DXKEY 


B 3 5 B 


1. 3 4 7 4 


R 


740200 


A 




SZA 




8354 


13 4 7 5 


F 


560137 


R 




SAD'*^ 


KVAR 


8355 


1 3 4 7 6 


R 


7 410 


A 




SKP 




8356 


1 3477 


o 


000032 


A 




ERP32 




8357 


1 35 00 


P 


200252 


R 




LAC 


GHI 


8358 


1,3501 


R 


745200 


A 




SNAiCLL 




8 359 


13502 


R 


613514 


R 




JMP 


XCOKu^ 


8360 


13503 


R 


107163 


R 




CALL 


EVAL 


8361 


13504 


R 


040252 


R 




DAC 


GHI 


8362 


13505 


P 


1 04645 


R 




CALL 


OCHAR 


8 36 3 


135 06 


R 


553767 


R 




SAD 


C54 


8364 


1 3507 


R 


613527 


p. 




JMP 


XCDKR 


8365 


1 3510 


R 


553655 


R 




SAD 


(37 


8356 


13 511 


H 


613555 


R 




J M P 


XCCORt^ 


8367 


1 3512 


R 


140247 


P 




DZM 


GUMIT 


836R 


1 3513 


9 


613537 


R 




JMP 


XCDKRl 


8369 










/ 






8 3 7 










/ 






8 371 










/ 






8 37 2 










/DATA 


BLOCK WRITE ROut 


8373 










/BOf^Il 


TO INDICATE THE 


8 3 7 4 










/THIS 


CAW BE DOME M S 


8 375 










/xco^u 






8376 










/ 






8377 










/ 






8 3 7 8 


1 3534 


R 


200607 


R 


XCOK^' 


LAC 


ACS>^R 


8379 


13515 


R 


5136 3 7 


R 




AMD 


(lOOOO 


8380 


1 3516 


R 


741200 


A 




S^IA 




8381 


13517 


R 


0000 3 2 


a 




ERR32 




8382 


13 5 20 


P 


200250 


R 




LAC 


8UNIT 


8383 


13521 


P 


040247 


R 




DAC 


GU MIT 


8384 


13 5 2 2 


R 


103641 


R 




CALL 


PRODA 


8 3«5 


13 5 2 3 


R 


200171 


R 




LAC 


OBPMT 


8386 


13524 


R 


113600 


R 




JMS 


XCOIS 


8387 


135 25 


H 


134057 


9] 




JMS* 


DNlPOLD 


838m 


13 5 2b 


R 


61 3547 


R 




JMP 


XCOMEX 


83«Q 










/ 






8390 










/ 






8391 












•EJECT 





READ DISC BLOCKS 



/USER PART, CELL TO 3E USED AS FCM INDICATOR & THEN TEMP CELL 

/ARCS? 

/YES, SET GHI TO INDICATE EITHER DISK READ OR CORE vyRITE 

/CHECK XCOM KEy = USER KEY (IE XCO^M KEY=0, ANY USER KEY OK) 

/2 ARGS FOR KEYCHK--SYS XCOM KEY 

/SKIP IP MO KEY SPECIFIED /*12JAH18* 

/" " " "" "--USSR KEY 

/KEYS MATCH /^l2JhHXB^ 

/KEYS DIDN'T MATCH--ERR3R 

/DISK i^RITE? 

/CLEAR LIMK SO EVAL ^ILL ALLO'^ ONLY NUMERIC RESULT 

/YES, DISK i^lRITE 

/EVALUATE 1ST ARG (MUM RESULT ONLY) 

/SA\fE IT 

/GET NEXT CHAR 

/COMMA? 

/YES, DISK READ I'^'ITH UNIT # STATED EXPLICITLY 

/BACKARROW? 

/YES, CORE '4RITE 

/DISK READ WITH DEFAULT UNIT OF 



NE--USER TS EXPECTED TO HAVE SETUP 08PWT AND 
BLOCK MU^^BFR A^^D UNIT NUMBER RESPECTIVELY, 
SIMPLY REAOIf\iG IN THE DESIRED BLOCK VIA 



/GET CURRENT DATA SWITCH SETTING 
/XCOM «RITE SWITCH SET? 



/NO, TREAT AS KEY ERROR 



/GET DISK 

/PUT BLOCK MUMBER IN AC FOR XCDIS 

/GO CHECK OUT BLOCK MUM3ER 

/*12JAH12'>= '4RITS OUT BLOCK 

/EXIT 
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'OMMAND PROCESSORS 



8392 
8 3Q3 
8394 
8395 
8396 
8397 
B398 
8399 
B400 
8401 
840? 
8 40 3 
8404 
8405 
B406 
8407 
8408 
8409 
8410 
84U 
8412 
8 413 
8414 
8 415 
8416 
8417 
8 4 1 R 
8 41'^ 
8420 
8421 
8422 
8423 
8 424 
8425 
8426 
8427 
8 42 8 
8429 
8 4 30 
8431 
8432 
8433 
8434 
84^5 
8436 
8437 
84 3 8 
ga 30 

8410 
8441 

8442 
8 4 4 3 



/ 
/ 
/ 

/DATA BLOCK READ ROUTINe--THERE ARE Ti^;0 Ef^TIRES Itv'TO THIS ROUTI^'E. 
/XCOKR IS THE ENTRY POINT IF THE USER HAS EXPLICITLY STATED THE UNIT 
/IN HIS COMMAND STRIMG. XCDKRl IS THE EMTRY POINT IF HS IS USIf^G THE 
/DEFAULT U^^IT SETTING OF 0. 



1 3527 


9 


7 4 4000 


k 


/ 

XCOKR 


CLL 




135 30 


R 


107163 


R 




CALL 


EVAL 


13531 


R 


741100 


A 




SPA 




13532 


R 


000005 


A 




ERR5 




13533 


R 


040247 


R 




OAC 

.IFZER 

SZA 

.EMDC 

.IFPNZ 


GUNIT 
RP 

RP 


13534 


R 


354022 


R 




TAD 


C-RP 


1353b 


R 


740100 


A 




SMA 
.ENDC 




1 35 36 


R 


00006 


a 




ERR6 




13537 


R 


10 3641 


R 


XCDKRl 


CALL 


PROD A 


1 3540 





200252 


R 




LAC 


GHI 


1 3541 


R 


040253 


R 




DAC 


GHEAD 


1 3542 


R 


113 6 


R 




JMS 


XCOIS 


13543 


R 


134102 


E 




J^^S* 


GET'^JEW 


13544 


R 


2 2 70 5 


R 




LAC^t' 


GBv^02 


13545 


R 


6 4 0503 


A 




LRS 


3 


13546 


R 


040255 


R 




DAC 


GHDOLD 


1 3547 


R 


140577 


R 


XCOMEX 


OZN 


DSKACT 


13550 


R 


140252 


R 


XCOREX 


DZf^ 


GHI 


1 3551 


nt 


44065,2 


R 




ISZ 


S^APSW 


1 3552 


R 


603573 


R 




J^^p 


DTABLE 


13553 


R 


101533 


R 




JMS 


HANG 


13554 


e 


603573 


R 


/ 
/ 
/ 

/CORE i 
/ 


JMP 


OTAei/E 










,ilORn i^iRTT! 


F ROlfTTNE 


13555 


R 


200607 


R 


/ 
XCCORW 


LAC 


ACSWR 


13556 


R 


513637 


R 




AMD 


CI 0000 


13557 


R 


745202 


A 




SNAiSTL 




13560 


R 


3 2 


A 




ERR32 




13561 


R 


1 716 3 


R 




CALL 


EVAL 


1 3562 


^ 


722000 


a 




PAL 




13563 


» 


200252 


R 




LAC 


GHI 


13564 


•R 


7 210 


A 




PAX 




1 3565 


R 


741100 


A 




SPA 




1 3566 


R 


000005 


A 




ERRS 





/SET SO EVAL WILL ALLO/^ 

/EVALUATE 2N0 ARG (I.E. 

/RETURNS iv'ITH RESULT IH 

/"MIMUS*' 

/SAVE UNIT 

/*12JAH8* 



/*12JAH8* 

/CHECK FOR OUT OF RANGE *12JAH8'f= 



ONLY NUMERIC RESULT 

UNIT#) 

AC 



/"MAXIM" 
/GET DISK 



/GO CHECK OUT BLOCK NUM3ER 

/*12JAH121= GET ^EW BLOCK 

/SETUP A FAKEOUT CHECKPOINT CALCULATION 

/in GHDOLD SO THAT IF USER WISHES TO DO 

/NAKED REFERENCES AFTER THIS HE CAM WITHOUT ERROR 

/FREE DISK =^12JAH44= 

/CLEAR OUT OUR TEMP CELL *12JAH4* 

/TIME SLICE UP? 

/WO 

/YES, LET OTHERS RUN 



/GET CURRENT 
/SEE IF XCOM 
/ALSO STL 50 
/DATA Sv^ NOT 
/GET SECOND 



DATA SW^ITCH SETTIMG 
WRITE SWITCH IS SET 
EVAL SVE CAN YIELD 777777 
SEr--TREAr AS KEY ERROR 
ARG CCONTEMTS TO BE PLACED) 



/SAVE 
/GET ( 
/SAVE 



ORE 
IT 



COMTE*^ITS 
ADDRESS 



FOR MOW 



/"MINIFS" 



pagf: 21 b 


M'j^ips 


100 


COM? 


^1 AND P 


ROCESSORS 




8444 


13567 


R 


354023 


^. 




TAD 


C ■" • • c 


8 4 45 


13570 


R 


7 4 0100 


A 




SNA 




8445 


13571 


R 


000006 


a 




ERR 6 




8447 












.06REL 


; DBA 




13572 


R 


707762 


J^ 








844P 


13573 


R 


730000 


A 




PLA 




8449 


1 3574 


R 


073577 


Q 




OAC* 


ZERO^X 


8450 












.EBREL 


? SB A 




13575 


P 


70 77 64 


A 








8451. 


13576 


R 


613550 


R 




JMP 


XCOREX 


845? 










/ 






8453 


13577 


R 


000000 


A 


ZERO 







8 4 54 










/ 






8455 












.EJECT 





/SEE IP NONEXH 
/"MAXIM" 



/=«=12JAH18* 



/PUT NE^ CQNTE^jrs Ii^ AC; 

/AND MO^I IMTO LOCATIl^i DESIRED /*12JAH18* 

/RESET BANK MODE /*12JAH18* 

/GO AvVAY, *12JAH4* 

/MUST CQfvTAIN ZERO, IM PAGE 1 /*l2JAHi8* 
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^U^PS luu 



CG^4MAND PRJCESSORS 



8456 
8457 
8458 
8459 
8460 
8461 
8462 
8463 
8464 
8465 
8465 
8467 
846B 
8469 
8470 
8471 
8472 
8473 
8474 
8475 
8 47 6 
8477 
8478 
8479 
8 4 80 
8481 
8482 
8483 
8484 
8485 
8486 
8487 
8488 
8489 
8490 
8491 
8492 
8 49 3 
8494 
8495 
8496 
8497 
8498 
849Q 
8500 
8501 
8502 
8503 
8504 
8505 
8506 
8507 



/ 
/ 

/THIS IS A GENERAL RnUTlNE USED BY ALL THE OTHER XCOM FUNCTION ROUTINES 

/TO CHECK OUT BLOCK NUMBERS TO SEE IF THEY ARE OK. 

/ 



/SAVE BLOCK # 
/*12JAH8* 

/UNIT 0? 

/YES 

/WO. NOM-ZERO UMIT--CHECK OUT BLOCK # 

/*12JAH12=^ ^iHAT DEVICE IS IT OM? 

/CORE--NOT ON THIS UMIT-^ERROR 

/RF15--N0T ON THIS UMIT--ERROR 

/RP--SO FAR OK^-GO SEE IF IN BOUNDS, 

/THIS IS FOR UNIT 0? CHECK OUT BLOCK # 
/*12JAH12* WHAT DEVICE? 
/CnRE--GO CHECK RAWGE 

/RF--CHECK RANGE 



/UO RF IN SYS. -- ERROR 



13 5 


ci 


000000 


A 


/ 

XCDIS 







1 3 6 1 


R 


040653 


« 




DAC 
.IFPNZ 


NBPNT 
RP-1 


13602 


R 


200247 


R 




LAC 


GUNIT 


13603 


R 


741200 


A 




SMA 




13504 


R 


613612 


R 




JMP 


XCDISI 


13505 


R 


200653 


R 




LAC 


^BPMT 


13606 


R 


134054 


e 




J MS* 


DISTR 


13607 


R 


613623 


R 




JMP 


XCERR 


13610 


R 


613623 


R 




JMP 


XCERR 


13611 


R 


613616 


R 




JWP 

.ENDC 


XCDIS2 


13612 


R 


200653 


R 


XCDISI 


LAC 


MBPNT 


13613 


R 


134054 


e 




j^iS=^ 


DISTR 


1 3614 


R 


613625 


R 




jwp 

,IFPNZ 
JMP 

.ENDC 

.IFZER 


XCDIS4 

RF15 

XC0TS3 

RF15 


13615 


R 


613623 


R 




JMP 

.ENDC 

.IFZER 

JMP 

.EMDC 

.IFPNZ 


XCERR 

RP 
XCERR 

RP 


13616 


R 


740100 


A 


XCDIS2 


SNA 




13617 


R 


633600 


R 




JMP* 


XCDIS 


13620 


R 


354024 


R 




TAD 


(307400 


13621 


R 


741100 


A 




SPA 




13622 


R 


633600 


R 




J^-IP* 
.ENDC 


XCDIS 


13623 


R 


140252 


R 


XCERR 


DZM 


GHI 


13624 


K 


00001 3 


A 


XCDIS3 


ERR13 

.IFP«^Z 

TAD 

SPA 

JHP* 

JMP 

.ENDC 


RF15 
("..A 

XCDIS 
XCERR 


1 3625 


R 


354025 


R 


XC0IS4 


TAD 


C - . . D 


1 3626 


o 


740100 


A 




SMA 




13527 


P 


613623 


R 




JMP 


XCERR 


13630 


R 


354002 


R 




TAD 


CD 


13631 


R 


353635 


R 




TAD 


. .B^^ 


13632 


R 


741100 


A 




SPA 




13633 


R 


613623 


R 




JMP 


XCERR 



/=^12JAH84= 

/^'0 RP IN SYS. -■ 



ERROR 



/POS #--DCFINITELY OH RP--GO AWAY *12JAH8* 
/SLOCK # TOO BIG? 

/NO. ALL OK. 

/ALL XCOM ERRORS COME MERE--CLEAR TEMP CELL 
/"GLOBE" (THIS PARTICULAR MESSAGE IS SCREWY) 

/IS THIS BLOCK ON A NOM-EXISTENT RF UNIT? 

/NO, GO AWAY 
/YESl ERROR 

/CHECK AGAINST MAX CORE BLOCK # 

/TOO 6IG--ERR0R 

/CHECK TO SEE IF TOO SMALL (I.E. IN SYS AREA) 

/TOO SMALL 



PAGR 


720 


^HJMPS 100 C 


;o 


MMA^D 


8508 




1 3634 R 633bO0 ^ 






8509 








/ 


8510 








/ 


8511 




13635 R 000000 A 




..BM 


8512 








/ 


851 3 











J^IP* XCDIS 



/ALL OK -- GO -A.^AY, 



•EJeCT 
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^lU^PS 


1 


COM 


851d 














1 3636 


R 


7 00 


A 


*L 




1 3537 


R 


OlOOOO 


k 


*L 




13640 


R 


020000 


A 


^L 




13641 


»^ 


30000 


A 


*L 




136 4 2 


Q 


040000 


A 


*L 




1 3643 


R 


050000 


A 


*L 




13644 


R 


250600 


a 


*Li 




13645 


R 


007777 


A 


*L 




1 3546 


R 


777700 


A 


*L 




13647 


R 


000160 


A 


*L 




136 50 


R 


600000 


A 


^L 




13651 


R 


710000 


A 


^L 




13552 


R 


570000 


A 


*b 




13653 


R 


000040 


A 


*L 




13654 


R 


001075 


R 


*L 




13655 


R 


000037 


A 


*L 




13656 


R 


777727 


A 


*L 




13657 


R 


077777 


A 


*L 




13660 


R. 


001534 


R 


*L 




13661 


R 


700000 


A 


*f. 




13662 


R 


400000 


A 


'^'L 




1 3663 


R 


200000 


A 


*L 




13664 


R 


10 00 


A 


tL 




1 3665 


n 


3 1 


R 


*L 




13 666 


R 


U04000 


A 


*L 




13667 


R 


000001 


A 


^^^L 




13 6 7 


R 


004377 


A 


*li 




13671 


R 


000506 


A 


*L 




13672 


R 


177777 


A 


*L 




1367 3 


R 


003657 


R 


#L 




13674 


R 


741000 


A 


*L 




1 3675 


R 


7 4 00 00 


A 


*L. 




13676 


R 


777477 


R 


*L 




13677 


R 


000135 


R 


*L 




13 7 


R 


001007 


R 


*L 




13701 


R 


000175 


A 


*L 




13702 


R 


000077 


A 


*L 




13703 


R 


000031 


A 


*L 




1 3704 





000004 


A 


*L 




1 3705 


R 


000002 


A 


*L 




13706 


R 


777773 


A 


*L 




1 3707 


R 


623174 


R 


*L 




13710 


R 


001 000 


A 


4=L 




13711 


R 


177313 


R 


*L 




13712 


R 


777776 


A 


*L 




1 371 3 


R 


1) 3 4 


A 


*L 




13714 


R 


17 7 


A 


tL 




13715 


R 


00 0144 


A 


*L 




13 716 


R 


000015 


A 


*L 




13 717 


R 


1 3 4 


A 


*L 




13720 


R 


00U014 


A 


't^L 



1MMAN0 PRDCeSSDRS 



.LTORG 



PAGS 222 


MUMPS 


100 


COMMAND 




13721 


R 


000023 


A 


*b 




1372? 


R 


777745 


A 


tl 




13723 


R 


000100 


A 


*L 




13724 


R 


000033 


A 


*L 




13725 


R 


777640 


A 


*L 




13726 


R 


777726 


A 


*L 




1 37?7 


R 


004767 


R 


*L 




1 3 7 K> 


R 


004765 


R 


*L 




13731 


R 


004764 


R 


*L 




13 7 3 2 


R 


004704 


R 


*L 




13733 


R 


0000 7 3 


A 


*L 




13 7 3 4 


R 


603606 


R 


*L 




13735 


R 


377777 


A 


*L 




137 36 


R 


004706 


R 


*L 




13737 


R 


777752 


A 


*L 




13740 


R 


777765 


A 


*L 




13741 


R 


777777 


A 


tl 




13742 


R 


000056 


A 


*L 




13743 


R 


00 0017 


A 


4=L 




13744 


R 


00000 3 


A 


*L 




13745 


R 


000006 


A 


*L 




13746 


R 


000060 


A 


*L 




13747 


R 


004705 


R 


'^^L 




13750 


R 


004703 


R 


*L 




13751 


rt. 


000035 


A 


*L 




1 3752 


R 


00 45 


A 


*L 




13753 


R 


000050 


A 


*L 




13 7 54 


R 


u 000 51 


A 


*L 




13755 


R 


000042 


A 


*L 




13756 


R 


500000 


A 


*b 




13757 


R 


000005 


A 


*L 




1 3760 


R 


000047 


A 


*L 




1 3 7 1 


R 


00 0074 


A 


*b 




13762 


R 


000075 


A 


*L 




1 3763 


R 


000076 


A 


*L 




13764 


R 


00007 2 


A 


*L 




13765 


R 


000046 


A 


*L 




13766 


R 


000041 


A 


^L 




13767 


R 


000054 


A 


*L 




13770 


P 


000043 


A 


*L 




13771 


R 


600413 


R 


*L 




13772 


R 


000062 


A 


^l 




13773 


R 


777715 


A 


*L 




13774 


R 


177302 


R 


*L 




13775 


R 


000332 


R 


^'^L 




1377b 


R 


000055 


A 


*L 




13777 


R 


000053 


A 


*C. 




1 4000 


R 


000044 


A 


*L 




14001 


R 


000036 


A 


*L 




14002 


R 


001600 


A 


*L 




14003 


R 


000052 


A 


*L 




1 4004 


R 


000057 


A 


^l 



PROCESSORS 



PkGE 223 



r-«U ^^PS 100 



COMMAND PROCESSORS 



8515 



14 5 


R 


770000 


A 


^L 


14006 


K 


377700 


A 


*L 


1 4 7 


R 


010105 


R 


*L 


1401 


R 


010112 


R 


*L 


14011 


R 


477777 


A 


*b 


14012 


R 


037770 


A 


*L 


1401 3 


R 


000025 


A 


*u 


14014 


R 


000027 


A 


*b 


14015 


R 


000030 


A 


*L 


14016 


R 


000277 


A 


*L 


14017 


R 


000200 


A 


*L 


14020 


R 


000012 


A 


*L 


14021 


R 


013050 


R 


'^b 


1402? 


R 


777775 


A 


*L 


14023 


R 


620000 


A 


*L 


14024 


R 


307400 


A 


^'L 


14025 


R 


776200 

000750 


A 
R 


*ti 


14041 


R 


014041 


S 


*E 


14042 


R 


014042 


£.' 


*E 


14043 


R 


014043 


E 


*E 


1 4044 


R 


014044 


E 


^E 


1 40 45 


R 


014045 


E 


*E 


14 4 6 


R 


014046 


e 


I'E 


14047 


R 


014047 


E 


^ E 


14050 


R 


014050 


E 


*E 


14051 


R 


014051 


e 


'^'E 


14052 




014052 




*E 


14053 


R 


014053 


E 


=«^E 


14054 


R 


014054 


E 


*E 


^4055 


R 


014055 


f£ 


*E 


1 4 5 6 


K 


014056 


E 


*E 


14057 


R 


01405 7 


E 


*E 


140 60 


H 


014060 


E 


*E 


14 61 


P 


014061 


E 


=*=£ 


14062 


R 


014062 


E 


*E 


14063 


R 


014063 


E 


*E 


t 40 64 


R 


014064 


E 


*£ 


14065 


R 


014065 


e 


*E 


14066 


R 


014066 


E 


*E 


14067 


R 


014067 


E 


*E 


14070 


R 


014070 


E 


^E 


14 71 


R 


014071 


E 


*E 


1 4072 


R 


014072 


E 


*E 


14073 


Q 


1 4 C 7 3 


E 


*E 


14074 


N' 


014074 


E 


*E 


14 7 5 


R 


01 40 7 5 


E 


*E 


14 7 6 


R 


014076 


E 


*E 


14077 


R 


014077 


E 


*E 


1410 


R 


014100 


E 


*E 


14101 


R 


014101 


E 


*E 


1410 2 


p 


014102 


E 


^iL. 



.END 



\^8LQCK 



PhC.E 224 


^'QMPS 


100 


r 


:oM 




14103 


R 


01410 3 


E 


*£ 




14104 


R 


01410 4 


£ 


«E 




141 05 


R 


01410 5 


E 


*£ 




14106 


R 


014106 


E 


*e 




14107 


R 


014107 


E 


^i'E 




14110 


R 


014110 


E 


*E 




14111 


R 


014111 


E 


*E 




14112 


R 


014112 


e 


*E 




14113 


R 


014113 


e 


=*=£ 




14114 


R 


014114 


E 


'S'E 




14115 


R 


014115 


E 


*E 




14116 


R 


014116 


E 


^E 




14117 


R 


014117 


E 


*E 




14120 


R 


014120 


E 


*E 




14121 


R 


014121 


E 


*E 




14122 


R 


014122 


E 


tE 




14123 


R 


014123 


E 


t E 




1 412 4 


R 


01412 4 


E 


*E. 




14125 


R 


014125 


E 


*E 




1412b 


K 


014126 


E 


*E 




14127 


R 


014127 


E 


*E 




14130 


R 


014130 


E 


*E 




14131 


R 


014131 


E 


*E 




14132 


R 


014132 


E 


*S 




14133 


^•■?. 


01413 3 


E 


Jl^E 




1 413 4 


R 


1 4 1 3 4 


E 


>!=£ 




14135 


R 


014135 


E 


*E 




1 4 1 3 6 


R 


014136 


E 


*E 




14137 


R 


014137 


E 


*E 




14140 


R, 


014140 


£ 


*E 




14141 


R 


014141 


E 


^E 




1 414 2 


R 


014142 


E 


*E 




14143 


R 


014143 


E 


*E 




14144 


R 


01414 4 


E 


*E 




14145 


R 


014145 


E 


*E 




14146 


R 


014146 


E 


*E 




14147 


R 


014147 


E 


*E 




14150 


R 


01 4150 


E 


tE 




14151 


R 


014151 


E 


*E 




14152 


R 


014152 


E 


* S 




14153 


q 


014153 


E 


*E 




14154 


R 


014154 


E 


*E 




14155 


R 


014155 


E 


=«=£ 




14156 


R 


014156 


E 


*E 




14157 


P 


014157 


E 


*£ 




14160 


R 


014160 


e 


*S 




14161 


R 


014161 


E 


*s 


PRnG>4K 














SIZe=lal62 







COM'vlA.NO PR3CESS0HS 



2 ERROR LINES 



PAGE 2 25 ^'U 


MPS CR 


OSS REF 


'EHEMCF 












hC 


00155 


985=^= 
3057 


2215 


2223 


2242 


2408 


2691 


2692 


2734 


ACSlAiR 


00607 


1283* 


2151 


2159 


2164 


2179 


8378 


8434 




ACS:^RQ 


00662 


284 


1354* 


2177 


2270 










ACSv^RX 


00510 


1284* 


2175 














ACTE^P 


00217 


284 


1037* 


2496 


2822 


3717 


3738 


3748 


3764 






3767 


3770 


3778 


3811 


3824 


3833 


3837 


3848 






3852 


3857 


3872 


3875 


3881 


3883 


5759 


6693 






6696 


6697 


6701 












Af.TMOO 


03434 


442 


3033 


3264 


3328* 










APT 


0001 


111 


112* 


114 


239 


328 


444 


452 


766 






767 


1248 


1574 


1585 


1738 


1797 


1804 


1992 






2022 


2079 


2201 


2312 


2335 








APPARR 


005621 


4746 


4793* 














APPE^'D 


04516 


3951 


4014* 














APPFP 


05641 


4749 


4817* 


4940 












APPNiJM 


05563 


4757* 


4945 














APPSTR 


05575 


4753 


4770* 


4944 












ARRA/I 


05523 


4714* 


4723 


4736 












ARRAy2 


05535 


4716 


4727* 














ARRSTR 


05661 


48 00 


48 35* 














ASFM15 


05323 


4524 


4528* 














ASK 


11477 


1145 9 


7190* 














ASSFIM 


05 30 4 


284 
7 421 


2616 
7 7 8 4 


2942 
8114 


4512* 
8154 


4539 


4563 


4581 


7197 


Ass^^n 


05316 


4523* 


4534 














ass&:m2 


05327 


4527 


45 32* 














ASS5^^4 


05361 


4520 


4565* 














ASSE^^5 


05326 


4517 


4531* 


4566 












AVAR 


00136 


441 


957* 


975 


3017 










BACK 


05451 


4661* 


4681 


4685 


4689 










BACK! 


05452 


4662* 


4672 














3ACK5A 


10535 


6593 


661 1* 














6ACK5B 


10514 


6594* 


7039 














BACK5C 


10525 


6597 


6603* 














8AKCHR 


000031 


















6 A i^l 


06363 


5223 


5236* 














BEGIN! 


03460 


284 


3352* 


3391 


3398 


3407 








BEGT^l 


3500 


3369* 


3379 














REGTD 


14041 


310 


933 


1567 












8KGt 


0^461 


3353* 


3363 














BEG2 


347 4 


3361 


3365* 














BEGB 


03476 


3359 


3367* 














flCDM 


06416 


5227 


5229 


5231 


5276* 










BKCHAR 


00242 


284 


1056* 


2534 


2860 


4461 


4476 


5156 


5715 






5810 


5817 


5820 


5840 


5876 


5922 


5939 


5964 






6384 


6404 














BLHCK 


010 


211* 


1103 


2703 


8345 


8346 








BODL 


06203 


284 

5280 


2562 

7599 


28«8 

7674 


5113* 


5151 


5258 


5260 


5265 


B'lOLE 


00260 


28 4 


1 7 6 * 


2566 


2892 


5131 


5137 


5197 


5214 


BQGLG 


00262 


107H* 


2568 


2894 


5132 


5139 


5199 


5212 




BO DLL 


00256 


1 074* 


2564 


2890 


5130 


5135 


5195 


5210 





PAGK : 


2 2 6 M u 


\^PS CRUSS HhZF 


bRS^CE 












BOOLMM 


06240 


5142* 


5147 














800LK 


14042 


310 
















BOR 


06367 


5225 


5243* 














BP^RIT 


00723 


40 B 


425 


1401* 












3rp:ak 


11536 


3460 


7229* 














BRgaKl 


11552 


7238 


7242* 














BSLfM 


00232 


1048* 
5279 


2518 


2844 


5116 


5153 


5246 


5256 


5267 


BTgRM 


00233 


1049* 
5266 


2520 
5277 


2846 


5118 


5152 


5237 


5244 


5257 


BUFF 


00134 


285 
4393 


952* 
7347 


2708 
8305 


3380 


3649 


3652 


3943 


4371 


BUFFI 


00132 


285 


950* 


1377 


2704 


3376 


3382 






BUFF2 


00133 


356 


951* 


2706 


3251 


4076 


4771 


4773 


4824 






4836 


4838 


4987 


4989 


5167 


5707 


5980 


5995 






6056 


6061 


6064 


6785 


6792 


6860 


6867 


7203 






7215 


7280 


7882 


7892 


7927 


7980 


7983 


7993 






8075 


8090 


8120 


8132 


8139 


8142 


8198 




BUf^lT 


00250 


285 


1062* 


2546 


2872 


8382 








8VAL 


00234 


1050* 


2522 


2848 


5108 


5115 


5144 


5154 


5218 






5220 


5236 


5238 


5243 


5247 


5255 


5261 


5268 






5270 


5276 














CALL 


100000 


527* 


3284 


3330 


3339 


3341 


3343 


3368 


3370 






3378 


3386 


3387 


3397 


3403 


3404 


3405 


3413 






3414 


3424 


3434 


343? 


3444 


3558 


3561 


3720 






3721 


3823 


3836 


38 41 


3843 


3845 


3851 


3856 






3861 


3863 


3880 


3897 


3898 


3904 


3908 


3978 






3981 


3985 


3990 


3995 


4009 


4018 


4027 


4039 






40 9 2 


4108 


4429 


4459 


4468 


4471 


4479 


4482 






4515 


4516 


4532 


4533 


4543 


4547 


4555 


4558 






4562 


4571 


4574 


4577 


4581 


4587 


4595 


4611 






4615 


4760 


4782 


4804 


4820 


4847 


4924 


4973 






4999 


5119 


5124 


5126 


5133 


5135 


5137 


5139 






5150 


5160 


5172 


5176 


5193 


5195 


5197 


5199 






5200 


5201 


5221 


5254 


5260 


5264 


5271 


5286 






5289 


5294 


5302 


5305 


5320 


5333 


5335 


5340 






534B 


5353 


5360 


5371 


5373 


5381 


5383 


5398 






5400 


5414 


5416 


5451 


5454 


5466 


5469 


5494 






5506 


5511 


5533 


5538 


5543 


5546 


5555 


5556 






5567 


5568 


5594 


5596 


5606 


5610 


5626 


5628 






5635 


56 3 7 


5640 


5719 


5724 


5746 


5750 


5751 






5758 


5761 


5762 


5778 


5779 


5802 


5826 


5870 






5901 


5906 


5920 


5929 


5937 


5947 


5952 


5958 






5967 


6025 


6027 


6039 


6041 


6045 


6076 


6081 






6090 


6107 


6110 


6119 


6120 


6130 


6151 


6155 






6157 


6169 


6173 


6206 


6207 


6216 


6217 


6221 






6225 


6236 


6236 


6246 


6250 


6253 


6259 


6262 






6265 


6279 


6280 


6293 


6294 


6319 


6323 


6338 






6343 


6 3 45 


6348 


6351 


6360 


6367 


6370 


6375 






6382 


6393 


6396 


6411 


6422 


6424 


6432 


6442 






6446 


6453 


6455 


6458 


6475 


6485 


6524 


7190 






7 1 9 4 


7197 


7205 


7209 


7218 


7221 


7230 


7249 






7 25 2 


7266 


7274 


7284 


7285 


7292 


7297 


7306 



pagf: 227 m 


MPS CR 


(JSS REF 


SREMCE 
















7327 


7335 


7336 


7 3 49 


7352 


7358 


7374 


7378 






7379 


7384 


7407 


7409 


7415 


7421 


7429 


7435 






7438 


7445 


7451 


7454 


7460 


7466 


7470 


7476 






748b 


7491 


7511 


7545 


7557 


7566 


7571 


7573 






7579 


7585 


7588 


7595 


7599 


7604 


7611 


7624 






7628 


7647 


7656 


7674 


7679 


7693 


7698 


7707 






7711 


7734 


7744 


7768 


7777 


7780 


7783 


7784 






7791 


7792 


7824 


7829 


7830 


7840 


7842 


7843 






7858 


7863 


7871 


7B95 


7900 


7913 


7917 


7926 






7938 


7943 


7948 


7949 


7952 


7959 


7961 


7969 






7978 


7982 


7998 


B003 


8004 


8011 


8014 


8035 






8048 


8061 


8068 


8078 


8080 


8081 


8093 


8095 






B096 


8100 


8103 


8106 


8111 


8114 


8122 


B130 






9150 


8153 


8154 


8160 


8169 


8175 


8180 


8181 






8187 


8190 


8193 


8196 


8203 


8205 


8207 


8210 






8216 


8238 


8245 


8251 


8253 


8272 


8276 


8278 






8280 


8282 


8288 


8293 


8295 


8297 


8298 


8302 






8317 


8 321 


8327 


8328 


8330 


8332 


8334 


8335 






8 3 36 


8351 


8360 


8362 


8384 


8402 


8414 


8438 


CALLP 


14043 


310 


3461 














CALL7 


14044 


310 


7639 














CALL71 


14045 


310 


7638 


7644 












COSTAT 


00641 


511 


1332* 














CPU'^n. 


14046 


310 


3245 














CHARl 


04770 


285 


34 4 


2570 


2896 


3168 


3185 


3219 


3233 






4230* 


4246 


4247 


4248 


5286 


528B 


5291 


5302 






5304 


5308 


5340 


5353 


5381 


5414 


5454 


5469 






5594 


7858 


8203 












CHAR2 


05 014 


285 


2572 


2898 


4259* 


4275 


4276 


4277 


5289 






5294 


5305 


5333 


5348 


5352 


5355 


5360 


5371 






5377 


5391 


5398 


5413 


5424 


5451 


5453 


5457 






5466 


5468 


5472 


5635 


6025 


7B63 


7871 


7913 


CHECK 


05201 


2B5 


2574 


2900 


4412* 


4438 


4444 


5465 


5474 






7335 


7378 


7491 


7948 


8003 








CHECK1 


05217 


4422 


4426* 


4443 












CHECK2 


05234 


4415 


4425 


4439* 












CHKARR 


006011 


4937 


4947* 














CHKC^JT 


11411 


7068 


7087 


7115* 












CLAC 


641000 


563'*^ 


4153 


4157 


4244 


4273 


5990 






CLKCiMT 


00174 


286 


1014* 


2106 


2107 


2109 


2450 


2776 




CLKw^iG 


01476 


21«9 


2194* 














CLKHZ 


000074 


163 


164* 


259 


2115 


2230 








CLKTMP 


01532 


2231=S= 
















CLOCK 


14047 


319 


2078 


2118 


2122 


3015 








CLnCKl 


01456 


21 14 


2172 


2175* 












CL3CK2 


01416 


2134 


2142* 














CLQCK3 


01523 


2213 


2218* 














CL0CK4 


01454 


2163 


2173* 














CLOCKS 


01441 


2154 


2162* 














C L 3 C K 6 


01425 


2124 


2149* 














CLQF 


700004 


586* 


2095 














CLQK 


01342 


1640 


2095* 














CLDKl 


01361 


2104 


2 1 1 * 















PAGR 22B 



m^9S CROSS REFERE^ICE 



CLOSE 

CLOSSO 

CLOSEl 

CLOSE? 

CLOSE 3 

CLRCHR 

CLSP 

COMBUF 

Cnv!N!AN 

COMS« 
CG^IT 



CQHTX 

C0\'T2 

C0MT3 

C0^T4 

CORE 

CRPTL 

CR5I 

CRSKP 

CRTRtlB 

Zf^KK . 

CR03B 
CR15 

CTFxr 

CTT 

0A3SPT 

DA8SKF 

DATE 

OATF.l 

DATE. 2 

DBK 

OCOUfsIT 

DCOl 



DOTSW 

nECER3 

DECER4 

OeCERS 

OECERb 

DEC 1^1 



700044 

10036 

10040 

10050 

10051. 

10055 

000037 

700001 

0000 3 J 

000 n 1 

00576 
06621 



06452 

06627 

06632 

06646 

06671 

000070 

0071 5 

706721 

706701 

000001 

000000 

000000 

00 

12552 

01057 

00706 

14050 

14051 

1405? 

14053 

703304 

000012 

000005 



00574 
04164 
U 4 1 6 7 
04173 
04203 
04103 



DECNiiv! 04121 



587=*' 

286 

6172 

286 

6217* 

61 96 

585* 
22 4* 
214 
224 
36 7 
286 
3689 
5445* 
5184 
5451* 
5454* 
5466* 
5455 
261 
286 
650* 
653* 

13 2* 

1 188 

130 

1 3 4 

7832 

1731* 

286 

310 

319 

319 

319 

2033 

121 

253 

395 

R5 3 

877 

1681 

1892 

1242* 

3722 

3741 

3745 

3737 

286 

4787 

4994 

3723 



2101 

6206* 
620 8* 
6216* 
6227 
6221* 

1638 
1 1 3 

215* 
3393 
1244* 
2560 
3691 
5452 
5319* 
5484 
5459 
5473 
5470 

672 
1388* 
1597 
1760 

136* 

1214 

131* 

135* 

7839* 

1381* 

926 
3020 
2129 
2127 
2193* 
122* 
363 
832 
856 
1407 
1690 
1914 
2044 
3752 
3 7 6 4 * 
3767* 
3774* 
2608 
4827 
4997 
3727* 



6224 



2092 
2705 
217 
7188 
2071 
2886 
3694 
5467 



5485* 
677 



145* 

1268 

138 

139 

7954 



930 

2135 

2140 

2202 

1246 

377 

835 

859 

1419 

1699 

1936 

2058 

3761* 

3788 

3792 

2934 
4830 
5003 



3252 
218* 

2076 
3628 
4311 
5486 



254 

1406 

144 

144 



2138 

2142 

2313 

1389 

380 

838 

862 

1422 

1708 

1958 

2153 



3795 

3713* 

4843 

5028 



3253 
220 

2173 

3637 
4315 



507 
1469 
1593 
1759 



2148 
2146 
2336 

383 
841 
865 
1643 
1805 
3335 
2161 



3797 
4900 
5802 



221* 223* 



3643 
4317 



796 
1472 



3022 
3024 



386 

844 

868 

1654 

1826 



3799 
4915 



3644 
4320 



799 



389 

847 

87t 

1663 

1848 



3898 
4923 



223 



3681 
5320 



1162 



392 

850 

874 

1672 

1870 



4778 
4953 



PAGE 7 


•29 MC 


MPS CR 


OSS REFERE^iC£ 






oscnuT 


04255 


2fib 


2610 


2936 


3831* 


3854 3864 






5626 


8196 


8251 


8276 


8 2 8 2 8 29 3 


DGCPr 


04151 


3725 


3750* 








oecpTO 


04156 


3731 


3755* 








0EC«53 


04176 


3766 


3769* 








OKCRSS 


04201 


3747 


3772* 








DEC2 


04235 


2624 
3 861 


2950 
3863 


3810* 


3825 


3841 3843 


oeFiM 


6460 


5174 


5328* 








oeFwiiM 


05571 


4763* 


4S11 








OEFSTR 


05614 


4785* 


4856 








DEFO 


06465 


5333* 


5351 


5380 


5437 




DEFl 


06504 


5 3 39 


5348* 


5356 






DEFIO 


06570 


5336 


5413* 








OEFll 


06606 


5415 


5427* 








DEFll A 


06613 


5430 


5432* 








OEFllS 


06617 


5431 


5436* 








DEF12 


06571 


5414* 


5426 








df-;f2 


06522 


5337 


5368* 








DEF21 


06533 


5374 


5377* 








0EF3 


06515 


5354 


5360* 


5364 


5404 




0EF4 


06534 


5378* 


5393 








0EF5 


06554 


5363 


5382 


5398* 


5401 


5402 


DEF6 


06563 


5342 


5405* 








OEGRAD 


00673 


287 


1365* 








OEL 


03405 


326B 


3300* 








DELELE 


006104 


5017* 










OELELO 


06110 


5020 


5024* 








DELEbl 


06120 


5033* 


5044 








DELEb2 


06113 


5028* 


5060 








OELE^O 


05771 


4913 


4923* 








DELETE 


05746 


4898* 


5U48 








0ELET1 


05747 


4871 


4899* 








0ELET2 


05750 


4886 


4900* 


5077 






0ELeT3 


05751 


4902* 


5036 








OELMOV 


05757 


491 2* 


4921 








oelmet; 


06141 


5058* 


5068 








OELWLl 


006144 


5057 


5061* 








OELMv/A 


06154 


5075* 


5079 


50B3 






0EL2 


03414 


3303 


3307* 








0FL3 


03421 


3 3 1 


3312* 








0FL4 


03425 


3311 


3316* 








DEV 


000062 


254* 


672 


673 


5582 


5656 5665 


OTGIT 


07306 


5726 


5738 


5802* 






DIRECT 


03527 


3388 


3402* 








DIRPTR 


00676 


287 


1373* 








DISL3P 


00264 


287 


1080* 


2578 


2904 




D I SPAT 


03535 


287 


2576 


2902 


3405 


3411* 3454 






7 25 3 


7274 


7306 


7333 


7636 7642 


DTSPTl 


03552 


3424* 


3431 








01SPT2 


03563 


3433* 


3436 








0TSPT3 


3550 


3415 


3422* 








DISTR 


14054 


310 


8469 


8475 







38 7 4 



38 8 4 



3845 



3851 



3 45 5 

8043 



7231 



PAGK 2 30 



"uMPS CROSS RF:PK«E:^iCe 



OTVO 
01 V2 
01V3 

DKCHK 

DLAR 

DLATi 

OLOK 

DL2 

DO 

OOLLAR 

DOSTR 

DGSTR2 

000 

001 

001.1 

D02 

003 

DPCA 

DPCS 

DPLA 

OPLF 

DPRSA 

DPRSB 

OPSA 

DPSE 

OPSF 

OPSJ 

DP.'^C 

ORAH 

DRAt, 

DC 1^ n 
v> V. V- 

osco 

OSCF 
OSC*^ 
DSFX 
OSKACT 



07354 

07364 

07370 

00645 

707064 

707024 

707202 

14055 

14056 

14057 

11553 

07236 

11611 

11622 

11555 

11624 

11625 

11635 

11662 

706344 

706324 

706304 

706464 
706312 
706332 
706321 
7 06 361 
706301 
706341 
706364 
707062 
707022 
707021 
707242 
707041 
707044 
707042 
00577 



DSKBFF 00704 



OSKCNT 

OSKRDE 

OSKREP 

DSKWRT 

DSRS 

DSSF 

DTA 



DTAB 
OTArtie 



00600 

14060 

00716 

14061 

707262 

707001 

000002 



03607 
03573 



5843 
5853 
5 85 9 
1339=*= 
620* 
619=«= 
624* 
311 
311 
311 
140 
5730 
7262 
7287 
7248* 
7265 
7298* 
7306* 
7276 
597* 
601* 
59B* 
599* 
591* 
592* 
594* 
595* 
600* 
593* 
596* 
618* 
617* 
616* 
625* 
621* 
623* 
622* 
287 
6134 
287 
6714 
287 
311 
1389* 
3U 
626* 
615* 
254 
1 178 
2637 
3422 
288 
7669 



5B51* 

5858* 
5861* 
7085 



7648 

1569 

6133 

3462 

5750* 

7 2 8 * 

7292* 

7338 

7297* 

7324 

7640 

7293 



898 

895 

893 
1622 

890 



1245* 
6211 
1379* 
6725 
1246* 
6995 
2198 
7006 
908 
906 
437 
1203 
2962 
3459* 
3444* 
7687 



6210 
7246* 



7646 



7307 



2303 
7043 
2700 
6887 
2199 
7014 
3516 
7029 

1617 

772 

1204 

3152 

5585 
7778 



7034 



7318 



2342 
7764 
6587 
7123 
3514 



775 
1250 
3159 

6213 
7957 



7763 



8387 



7326* 7653 



2367 
8422 
6603 
7142 
3517 



1094 
1404 
3160 

6215 
7962 



3034 

6608 
7173 



3 5 () 6 

6651 
7181 



3520 

6709 
7184 



1151 
1462 
3318 

7339 
8007 



1152 
1465 
3527 

7350 
8057 



1177 

1601 



7382 
8184 



PAGE 731 



MUMPS 



ROSS REFSREMCE 



OTABJ 

OTACT 

0TAT5T 

DTSSZ 

OT^UFF 

OTCA 

OTDF 

OTEF 

DTERRA 

OTERRB 

DTFRRS 

DTI^J 

OTI^'l 

OTJ^IPI 

DTJMPQ 

DTLA 

OTOUT 

DTOUTl 

DTRA 

DTKB 

DTTRA^ 

DTSf A 

u M ^ i 

DVHANG 
DVHNGl 

DKKFY 

EBCDIC 

ELSE 

EMERG 

END 



EQfJAL 

EQQALl 

EQ?JAL2 

ERASE 

ERASEl 

ERASED 

ERASE4 

ERASES 

ERASE6 

ERMOD 

ERROR 

ERRGRO 

ERR0R2 

ERRl 

ERRIO 

ERRll 

ERR12 



03574 

14062 

03602 

000400 

00666 

707541 

707601 

707561 

00624 

00625 

00626 

1406 3 

14064 

03427 

03203 

707545 

14065 

14066 

707552 

707572 

00603 

00403 

707544 

000005 

01713 
01721 
14067 
000001 
12362 
00570 
00167 



06423 
0550t 
06433 
11677 
11710 
U7 50 
U754 
11725 
117 36 
4616 

000000 
14070 
14071 
000001 
000010 
000011 
000012 



8425 
288 
450 
288 
1.84 
442 
611* 
6104^ 

b 8 * 
442 
443 
443 
450 
450 
44 3 . 
443 
606* 
450 
450 
607=5= 
609* 
44 3 
441 
605* 
172 
1222 
288 
28R 
31 9 

7346 

1234* 
288 

3668 

4376 

5186 

4665 

5287 

3463 

7343 

7357 

7388* 

7364* 

7368 

2^57 

8001 
530* 
311 
311 
534* 
541* 
542* 
543* 



8427 
3445* 
3541 
3418 

185* 
1360* 

160 8 

1605 

1309* 

1310* 

1 3 1 1 * 

1205 

3319 

3319* 

3153 

1179 
3154 



773 
1153* 

173* 

140 8 

2387* 

2393* 

8352 

7684* 

2306 

1 8 * 

3686 

4400 

5286* 

4692* 

5294* 

7342* 

7352* 

7384* 

7398 

7400 

7373* 

2983 



1565 
7240 
3654 
4590 
4592 



7682 7771 7795 

3545 

3448 3451* 7563 



3154* 



i052 
2440 
3950 
4441 
5292 



7381 



7392 

4 090* 



3688 
5829 
5900 



7678 



7686 



1251* 



254 1169 1170 



1 195 



1196 



1221 



2766 
3965 
5614 



3615 
4002 
7317 



3645 
4036 
7367 



3651 
4101 
7391 



3653 
4309 
8310 



4110 



4112 



7938 7982 



7988 



6304 
5973 



7514 
7517 



7742 



«-■■ ^jI 



232 



viU'^PS CROSS REFERENCE 



ERRtS 000013 



e:rri4 

ERR 15 
ERR16 
£RR1 7 

RRRP 
ERR20 

e:RR2i 

ERR22 
eRR23 

ERR 2 4 
ERR25 
ERR26 
ERR27 
ERRB 



RRR30 

f:rr31 

ERR32 
ERR33 

ERR4 



ERR5 

ERR6 

ERR7 
ER55 
ER6 
ESTR 

ESY'^en 

EVftL 



EVAliO 
EVAR 

EXEC 

EXECl 

EXEC2 

EXeC3 

EXEC4 



000014 
000015 
000016 
000017 

000002 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000003 



000030 
000031 
000032 
000 3 3 
000004 



000005 

000006 

000007 
04631 
4637 
12657 
06173 
07163 



07174 
00152 

001644 
01672 
01677 
017 04 

001705 



544* 
7748 
545* 
546* 
547* 
548* 
5022 
535* 
549* 
550* 
551* 
552* 
553* 
554* 
555* 
556* 
536* 
4521 
5372 
5764 
6249 
7196 
7718 
8097 
557* 
558* 
559* 
560* 
537* 
7247 
B149 

538* 
8323 

539* 
6421 

5 40* 
4101* 
4102 
7897 
5090 
288 
4468 
5921 
6 38 3 
7571 
8014 
5704 
28B 
2301 
2344 
2341 
2363 
2346 



6176 
8494 
3903 
3941 
4310 
4702 
5064 
7241 
6565 
6650 

3043 



1189 
3392 
4535 
5375 
5781 
6282 
7286 
7729 
8113 

5676 
6161 

3406 
7593 

4551 
8404 
5658 
7527 

4106 
4107* 
7899 
5095* 
2598 
4477 
5929 
639 3 
7579 
8169 
5711* 
972* 
2 3 3 4 * 
2359* 
2364* 
2369* 
2356 



6228 

7976 
4377 

4346 
4705 
6640 



1197 
3416 
4561 
5376 
5903 
6296 
7288 
7822 
8157 



6364 

3475 
7623 

5513 
8443 
5863 
7907 



7909* 

2924 

4547 
5938 
6405 
7624 
8193 

975 



6555 

4401 
4796 



1209 
3421 
5189 
5399 
5955 
6346 
7424 
7835 



8356 

3477 
7652 

5653 

5886 
7924 



3423 
5126 
5947 
7218 
7656 
8207 



7111 7696 7710 7725 

7828 7971 8079 8094 
4880 4897 4905 4950 



1212 
3450 
5232 
5540 
6080 
6451 
7427 
7845 



8 381 

3485 
7692 

5951 

5913 
8413 



3426 
5201 
5965 
7249 
7660 
8321 



1223 
3535 
5334 
5739 
6121 
6468 
7550 
7861 



8 4 37 

3488 
8013 

7354 

5993 
8446 



3428 
5511 
6067 
7352 
7666 
8360 



3907 
5349 
5753 
6156 
6473 
7578 
7866 



3489 
8066 

7826 

6034 



3440 

5694* 

6082 

7429 

7824 

8402 



4518 
5361 
5754 
6218 
7192 
7701 
8082 



6106 
8085 

7973 

6414 



4460 
5894 
6250 
7566 
7969 
8438 



2361 



2366 



2370* 



phGF 233 



MUMPS CROSS ReFERSMCE 



EXIT 


01075 


289 


442 


1790* 


2049 


2077 


2157 


2185 


2191 


EXTSr 


05060 


4297 


4 3 8* 














PILE 


14072 


311 


7412 














FILE5 


14073 


312 


7406 














FI^JRPL 


12700 


7916 


7926* 














FLOAT 


00212 


356 


1031* 


2485 


2811 


8166 


8171 






FLOATl 


05723 


4874* 


4892 














FL0AT2 


05735 


4877 


4884* 














FMQWEY 


000001 


150 


151* 


153 


352 


1029 


2480 


2805 


4540 






4552 


4675 


4686 


4747 


4794 


4813 


4873 


4890 






4929 


4934 


4938 


4948 


5018 


5051 


5054 


5062 






5080 


5563 


5700 


6084 


6089 


6525 


6636 


8164 






8170 


8256 


8264 












F^IDARR 


005740 


4862 


4889* 














F W D F L E 


06076 


4718 


4729 


5011* 












F^^jOSYM 


05707 


4699 


4860* 














FOLLG'/^ 


06436 


51 8B 


5302* 


5313 












FOR 


11772 


3464 


7405* 














FOROOia 


12201 


7556* 


7607 














FGRIF 


12230 


7533 


7575 


7583* 












FORIFl 


12261 


7602 


7608* 














F0RIT1 


12214 


7440 


7570* 














F0RIT2 


12141 


7506 


7522* 














FORITB 


12155 


7535* 


7581 














FORMAT 


06673 


2614 
8190 


2940 


5 49 3* 


5505 


5508 


5549 


7194 


8111 


FOR '^2 


06770 


5559* 


7225 


8145 












FOR^JEX 


12167 


7524 


7545* 














F0R0N2 


12210 


7547 


7565* 














FORSTP 


12077 


3453 


7485* 














FORTST 


00203 


289 


1021* 


2464 


2790 


3412 


3451 


7232 


7254 






7332 


7450 


7493 


7494 


7621 


8041 


8044 


8045 


FORVAR 


00235 


1051* 

8055 


2524 


2850 


7416 


7432 


7504 


7507 


7561 


FORXIT 


03537 


3413* 


3420 


3446 


7456 


7472 








FORI 


12030 


7438* 


7568 














FnR2 


12035 


7444* 


7536 


7544 












F0R3 


12042 


7450* 


7614 














F0R4 


12045 


7454* 


7459 


7462 












F0R5 


12065 


7470* 


7475 


7478 












FnnwD 


12620 


7859 


7878* 














FPERRC 


10564 


6527 


6529 


6637* 












FTABLF 


14074 


312 
















FUNCT 


14075 


312 


5766 














FU.VOIIT 


14076 


312 


5931 














FVAP 


00142 


961* 


3202 


3212 












GARB 


14077 


312 


2325 














GAS 


660000 


564* 
















GASS 


00266 


1082* 


2618 


2944 


3618 


3629 


36 31 


3638 


3640 






3641 


3677 


3682 


3684 


3690 


3692 


4314 


4316 






4318 


6120 


6217 


6283 


6299 


6306 


6319 




GASSl 


10122 


6284* 


6295 














GASS15 


10127 


6285 


6289* 
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MU^^PS 



'ROSS RePEREMCE 



GASS2 

GASS5 

QASS6 

GBACK1 

GRACK2 

GRACK4 
GRACK5 
GBACK6 

GBACK7 

GBAD 

GBLKHI 

GBLTPT 

GBfJFFl 

GB^02 

GCH 

GCHAIN 

GCH A MP 

GCQNT 

GC9MT1 

GDISK 

GDISKI 
GDISK2 
G01SK3 
G0ISK4 

GDD^xiK 
GEND 

GETKEY 
GETAJEiAj 
GEXTT 

GExiro 

GFMOA 

GPMDB 

GFNDO 

GFMOOA 

GF^mOOB 

GP'^:'*)! 

GFM02 

GFN03 

GP'^vlDlA 

GF^iD4 

GFfvlD4A 

GF'MDS 

GF^JD6 

GFMD7 

GFGUMO 

GFREE 

GGFT 

GGRO^ 



10133 
10132 
10141 
10415 
10473 
10475 
10504 
10505 
10540 
10541 
00671 
00251 
00710 
14100 

00705 

113 3 
14101 
00672 
10651 
10670 
1 1331 

11364 
11370 
11405 
11337 
11321 
11322 

05242 
14102 
11311 
11305 
10770 
10747 
10773 
11001 
11013 
11016 
11023 
110 31 
11046 
11052 
11054 
11057 
U065 
11075 
10712 
14103 
10065 
000001 



6288 

6281 

6 3 1 =f 

6531* 

6577* 

6579* 

65B6* 

6587* 

6602 

6616* 

289 
1063* 

289 

319 
702B 

289 
7131 
7019 

319 

289 
6617 
6720 

290 
7757 
7084 
7073 
7075 
7069* 
6534 

290 
7121 

290 

312 
660 5 
6988 
6781 
6783 
6775 
6773 
6801 
6807 
6931* 
6837* 
6847 
6R54* 
6824 
6835 
6852 
6764 
6739 

312 
5736 

102 



6293* 

6292* 

6309 

6642 

6746 

6733 

6726 

6659 

6615* 

6634 

1363* 

2548 

1383* 

6991 

1360* 

7138 

7020 

7017 

1364* 

6652 

6725* 

6586 

7090* 
7095* 
7109* 
7088 
6543 
6596 
7125 
2644 
7069 
6858 
7009 
6784 
6785* 
6805* 
6812* 
6822* 
6826* 
6893 
6865 
6850* 
6874 
6856* 
6 B 6 * 
6867* 
6876* 
6756* 
689? 
6236* 
103* 



6629 



2874 

6994 

2702 
7140 
7026 



6670 
6886 
7097 



6738 

6516 

7143 

2970 

8418 

6880 

7036* 

6789 

6810 



6916 



6724 

7005 

6888 
7154 
7033 

6709* 
7063* 
7107 

6892 
6669 

4456* 

7040* 

6802* 

6815 



7167 
7011 



6915 
671 3 

4481 



6817 



7013 



7070 7104 
7185 7758 
7056* 



7023 

7105 
7762 



7027 

7128 
8419 



7093 7168 
71 13 



7176 7183 



7049^ 
6806 

4483 



6948 7050* 
6155 6345 



6957 
2263 



7077 
2321 



7081 7180 
2326 
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GHDOLO 00255 
GHEAD 00253 
GHI 00252 



GHTGH 

GHIGHO 

GHIGHl 

GHIG^2 

GHIGH3 

GHIGH4 

GIMDKX 



GKTLL 

GKTLL2 

GKI.L03 

GKILb4 

GLFlNiCT 



10607 
10603 
10610 
10620 
10634 
10645 
11326 



10104 
010105 

lOUO 
010112 

11327 



GLOBAL 00272 



GLSET 
GMeXT 
G^IDSYM 

GNO&^OS 

W» iJ 

GQBeG 
Of U w L -J K. 
GOOf^.P 
GOERR 
GOPP 

GOS^>jAF 
GDI 

Gn2 

GPOTw? 

GPfJT 

GSCRIP 

GSCRIl 

GSPACe 

GvSPACt 

gspa:4 

GSPAC6 
GSYM 



GSYMBO 
GSYMO 



11426 
10700 
10600 
11325 

12266 
01040 
01324 
01042 
01036 
11412 

01044 
12326 
12317 
11323 
10073 
10242 
10332 
11436 
11437 
11461 
11467 
00270 



00254 
10231 



290 
708 

290 
6743 

290 
6B85 
«423 
6668* 
6613 
6669=^ 
6677* 
6676 
6691 
6540 
6664 
6891 
6259* 
6260* 
6264* 
6266* 

290 
6911 

278 
6238 
7042 
6594 
6622 
656B 
6778 
6863 
3465 

715 

787 

716 

747 
6827 
7132 

717 
7620 
7627 
6998 
6246* 
6381* 
6410 
6841 
7154* 
7162 
7175 

291 
6259 
77J 1 

291 
6355 



1067* 
7100 
1065* 
6884 
1064* 
7160 
8440 
6683 
6664* 
6688 
6695 
6690* 
6699* 
6550 
6737 
6894 
7782 
6466 
6489 
6591 
6531 
6928 
290 
6253 
7045 
6601 
6737* 
6657* 
6787 
6918 
7617* 
1566* 
2080* 
1568* 
1564* 
6855 
7186 
1 5 7 * 
7651* 
7642* 
6904 
8152 
6448 
6441 * 
6919 
7178 
7166 
7 1 8 * 
1 8 4 * 
6390 

1066* 
6366* 



1069 
7752 
2552 
6902 
2550 
7170 
8493 



6698 



6566 
6766 
6914 



7038 

6558 

7040 

10B6* 

6262 

7047 

6658 



6790 
6944 



2084 

2037 
6889 



6958 

6956 

7173* 

2648 
6398 

2554 
6461 



2556 
8421 
2878 
7078 
2876 
8348 



6578 
6837 
7054* 



6648 

7055* 

2650 

6265 

7734 

7092 



6799 
6950 



6901 



2974 
6415 

2880 



2882 

6572 
7098 
6579 
8350 



6600 
6838 



6756 
7095 
2976 
6581 
7744 
7137* 



6802 
7053* 



6955 



5463 
6456 



6570 

6576 
7735 
6716 
8357 



6611 
6844 



6779 
7109 
5449 
6584 

7144 



6832 
7156 



7066 



7051* 



7153* 7159 7171 



5476 
6464 



6744 

6577 
7754 
6718 
8361 



6621 
6856 



6813 
7756 
5478 
6589 



6840 
7163 



7090 



7187 



6236 
6469 



6903 

6732 
8416 
6722 
8415 



6657 
6890 



6828 

6093 
7036 



6862 



7120* 



6118 6552 6553 



6246 
7698 

7697 
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GSYMl 

GSY^IIO 

GSYMll 

GSyM2 

GSYM21 

GSY^3 

GSYM,4 

GSYMS 

GSYM6 

GTA8LE 

GTEMP 

GTHRED 

GTHR? 

GTHR3 

GTHR4 

GT^BUF 

GT-MR.l 
GllNi0 2 
GUM03 

Guno^ 

GUM 05 
GUMD6 
GLI^{D7 
GUM 8 
GUi^l)9 
GU^ilT 

GXTBAO 

GOnPF 

HALT 

HALTER 
HALTON 
HALTt 
HA?slG 



HANG. 2 
HAMG,4 
HAMGl 

Hft^fG2 

HFGLOl 

HKBENT 

HLOCK 

HLTS^T 

HO*^CHR 

HOUT 

HTPE^iT 

ICHARl 



ID 
lENTRY 



10235 
10330 
10375 
10204 
10214 
10350 
10354 
10363 
10402 
14104 
11324 
11225 
11254 
11262 
11301 
14105 

14106 
11102 
11114 
11122 
11130 
11142 
11161 
11175 
11217 
00247 

11304 
10572 
14107 
14110 
00664 
14111 
01533 



01535 
01545 
12 3 3 1 
12345 
14112 
14113 

000000 
00663 

000035 
14114 
14115 
04725 



00240 
14116 



6371=^^ 

6418 

6320 

6342* 

6341 

6 3 36 

6373 

646 3 

6467 

321 

6932 

6610 

7011=S' 

7001 

7022 

321 

6987 

321 

6884* 

6894* 

6900* 

6730 

6742 

6941* 

6949 

6938 

291 

7015 

6702 

658B 

312 

312 

291 

312 

291 

3511 

7046 

2220 

2217 

291 

7659 

314 

314 

265 

291 

314 
314 
292 
398B 
7900 
292 
471 



64R3 

6436* 

6479* 

6460 

6351* 

6458* 

6462* 

6469* 

6484* 

6181 

6945 

6830 

7025 

7017* 

7032* 

6606 

6989 

6933 

6905 

6920 

0971 

69! t* 

6926* 

6978 

6954* 

6973* 

408 
7018 
6913 
6647* 
3466 
2026 
1356* 
3072 

441 
3533 
7377 
2242* 
2227 
7656* 
7668* 
6417 
2046 

266* 
1355* 

2158 
2060 
344 
4189* 
79 1 7 
1054* 
1633 



6300 

6962 6963 6969 7052* 

6987* 



6769 6848 6927 6935 6941 

7032 

6959 



1061* 

7030 

6930 



2212 

4012 
7668 

2253* 



1356 
2273 



2622 
4200 
7926 
2530 



6965 



2544 
8367 
7035* 



2870 
8383 



6575 
8405 



5996 
8465 



7007 



2226 
4111 
7767 



2240* 

5094 

8426 



2243 
5678 



2393 
6135 



3362 
6214 



2948 
4208 
8130 
2856 



3284 
4215 



3330 
5906 



3938 
6027 



3975 
6045 



PA^e 7 


i37- Ml: 


'^^PS CRi 


OSS \<?S 


SPSMCK 












IK^TO 


04727 


4 1 9 1 * 


4219 














IRNTl 


04744 


4201* 


42 3 7 














TE^IT2 


04756 


4209* 


4218 














IF 


12347 


3467 


7672* 














IFSWT 


00246 


1060* 


2542 


2868 


7675 


7676 


7684 






IF2 


12351 


7674* 


7681 














IF3 


12353 


7673 


7676* 














TLLI^iT 


01253 


768 


769 


770 


771 


776 


782 


784 


785 






792 


794 


795 


800 


806 


808 


809 


810 






811 


816 


822 


824 


825 


830 


836 


842 






848 


854 


860 


866 


872 


878 


1981* 


1987 


in 


03365 


442 


3284* 














IMDIR 


03525 


3389 


3397* 














IN0TA8 


01007 


292 


1375 


1563* 


2348 


2690 


3531 






I'^PUT 


00163 


442 
5583 


465 
5666 


1004* 


1140 


2432 


2758 


3142 


3257 


INSERT 


04535 


3959 


4029* 














TNSMDM 


06030 


4958 


4969* 














INSSTR 


06046 


4957 


4965 


4986* 












IWTAR 


00476 


1202* 


5667 














INTAC 


00560 


1226* 


1578 


1796 


1809 


1830 


1852 


1874 


1896 






1918 


1940 


1962 


1996 


201« 


2019 


2083 


2214 






2218 
















INTE^n 


001046 


714 


1573* 














INTL 


00563 


1229* 


1584 


1790 


1817 


1838 


I860 


1882 


1904 






1926 


1948 


1970 


2004 


2091 


2206 






INT^o) 


00561 


1227* 


1580 


1794 


1813 


1834 


1856 


1878 


1900 






1922 


1944 


1966 


2000 


2087 


2208 






I W TOFF 


705522 


116* 


241* 


1575 


1807 


1828 


1850 


1872 


1894 






1916 


1938 


1960 


1982 


1994 


208! 


2241 


2294 






2387 


3104 


3119 


3499 


3540 


5679 


5841 


7662 


INTO^J 


705521 


J 15* 


240* 


1800 


1985 


2025 


2035 


2256 


2316 






2338 


3107 


3122 


3503 


3523 


3546 


5685 


5861 


I'MTSCO 


1 11 


37 6 


833 


1806* 


1810 










IWTSCl 


01133 


378 


839 


1827* 


1831 










I^MTSC2 


01157 


381 


845 


1849* 


1853 










IMTSC3 


01203 


384 


851 


1871* 


1875 










IMTSC4 


01227 


387 


857 


1893* 


1897 










I^iTX 


00562 


1228* 


1582 


1792 


1815 


1836 


185B 


1880 


1902 






1924 


1946 


1968 


2002 


2089 


2204 






Tw? 


03375 


3288 


3292* 














TOTMP 


00564 


1230* 


2098 


2105 


2110 


2388 


2391 






I OUT 


0310J 


3055 


3073* 














TPIH 


701764 


667* 
















IPLACS 


221 


292 


1039* 


2500 


2826 


3296 


3304 


3308 


3316 






3375 


3922 


3926 


4190 


4194 


4201 


4209 


5706 






5911 


59B5 


6011 


6019 


6032 


6046 


7202 


7891 






7905 


7922 


7990 


8074 


8089 


8119 


8126 




XP0I!\]T 


00220 


292 


343 


1038* 


2498 


2824 


3030 


3031 


3292 






3300 


3313 


3314 


3377 


3932 


4195 


4196 


4199 






4205 


4207 


4212 


4214 


4775 


4840 


4851 


4992 






5001 


5708 


5907 


5982 


6022 


6028 


6051 


6053 






6055 


6058 


7204 


7888 


7901 


7918 


7932 


7997 



PRGC 238 ^^U 


i-^PS CROSS RE? 
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8075 


8091 


8121 


8134 










ITEXTl 


06264 


5J28 


5167* 














TVAR 


00143 


292 


962* 


5651 












JBSPTR 


00646 


1 340* 
















jni^j 


12366 


3468 


7691* 














JGI^O 


12370 


7693* 


7770 














JOIWl 


12424 


7721* 


7732 














KBQI.IT 


14117 


374 


1202 














kee:p20 


00573 


1240* 


3047 


3049 












KEy 


03336 


292 


3 2 6 1 * 














KEYCHK 


05272 


292 


2642 


2968 


4496* 


4497 


4498 


4502 


4504 






4505 


6157 


6351 


6 360 


8351 








KCYCH2 


05302 


4500 


4504* 














KEYCR 


03430 


3266 


3323* 














K£Y,2 


03340 


292 


3263* 














KILL 


12506 


3469 


7774* 














KTLLl 


12513 


7775 


7780* 


7794 












KILL 15 


12527 


6263 


6267 


7792* 












KILL2 


12530 


7793* 
















KR3 


700312 


572* 


2043 


2052 












KSF 


700301 


571* 


1731 














KVAR 


00137 


292 


958* 


6149 


6326 


8354 








LOMivi 


700024 


662* 
















LETTER 


0726J 


5725 


5775* 














LETTO 


07263 


5777* 


5793 














LETTl 


07274 


5780 


5789* 














LeTT2 


07272 


5767 


5784* 














LETT3 


07264 


5778* 


5798 














LIME 


06763 


5497 


565 3* 














[.MTBPT 


00707 


293 


1382* 














LOC 


00206 


293 


1024* 


2470 


2796 


3381 


4362 


4391 


4417 






4423 


4431 


4437 


4439 


7233 


7255 


7269 


7299 






7304 


7312 


7331 


7448 


7487 


7612 


7631 




LOCK 


14120 


314 


3470 














LOKOT 


03701 


441 


2639 


2965 


3539* 


3547 








LOKDTl 


03675 


3533* 


3543 














LOKiJPl 


07325 


5828* 


6241 














LOOKUP 


07322 


5785 


5825* 


5968 












LOSE 


06342 


5216* 


5290 


5293 


5295 


5303 


5312 


5324 


5409 


LPAREM 


06375 


5123 


5253* 














LP$F 


706501 


641* 


1743 














LPSF,2 


703501 


646* 


1752 














LPSTA 


00642 


482 


1333* 














LPSTA2 


00643 


1334* 
















LP15 


000000 


3 24 


125* 


254 


479 


802 


805 


1156 


1182 






1208 


1262 


1405 


1447 


1450 


1740 






LP15.2 


000000 


127 


128* 


254 


489 


826 


829 


1159 


1185 






1211 


1265 


1405 


1454 


1457 


1751 






LR 


00161 


989* 


2262 


2414 


2740 


3007 








LVAR 


00145 


293 


964* 


3352 


3939 


4364 


4387 


4413 


4424 






4426 


4428 


4430 


7234 


7256 


7267 


7305 


7308 






7330 


7344 


7618 


7629 


7827 


7955 


7970 


8064 


M 


00214 


293 


1034* 


2490 


2816 


3716 


3729 


3735 


3750 



PAGS 239 MU 
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3753 


3773 


37B0 


4070 


4465 


4472 


4514 


4523 






4526 


5777 


5791 


627B 


62B4 


62B7 


6330 


6331 






6332 


6333 


6352 


6357 


6359 


6361 


7408 


7410 






7996 
















MBUF2 


04573 


2659 


2985 


4066* 


4083 


7842 


7978 






Moywip 


14121 


334 


1475 














MEXEC 


03055 


295 


3049* 














MFtlNCT 


1412? 


343 
















vlTNUS 


07177 


5714* 


5B91 














MODF^ 


12533 


3472 


7821* 














MODIFY 


000001 


199 
7797 


200* 


1097 


2655 


2980 


3471 


3474 


4060 


^^OD^IET 


12535 


7 8 2 3 * 


B006 














MONEY 


000001 


147 

2800 


148* 
4645 


154* 
5088 


339 
6072 


1026 


1412 


1415 


2475 


MONEYS 


14123 


349 


1413 














MONIT 


00661 


293 


1353* 


2400 


2672 


2694 








MONTH 


14124 


321 


2132 


2141 












^ONTIY 


00575 


367 


1243* 


2047 


2061 


2171 


2174 






^QHYS)N 


00210 


356 


1027* 


2477 


2803 


4646 


5089 


6074 




^10VD1 


04562 


4047 


4050* 














MOVFOM 


04550 


4040* 


4049 














MPCNE 


701744 


666* 


2032 














MPEU 


701742 


661* 


3001 


3064 












MPS^'^'E 


701741 


665* 


1777 














^Q 


00157 


987* 


2258 


2410 


2736 


3003 








WSRIIF 


04610 


4079* 


40 8 4 














^ISTACK 


03766 


3604 


3617* 














NSTKR 


04012 


3637* 


3647 














MSTR 


07657 


6 6 5 * 


6091 














MTA 


000001 


162* 


254 


461 


778 


781 


1165 


1166 


1191 






1192 


1217 


1218 


1253 


1403 


1440 


1443 


1629 


MTA7DN 


000000 


159 


160* 


162 












MTA9 


000001 


















MTA90N 


000001 


156 


157* 


162 












^^TBUFF 


00667 


465 


1361* 














^TCOL 


000073 


24 3 


244* 


246 


247* 


1409 








^^TEOM 


00674 


466 


1371* 














^ITERRS 


00630 


465 


1316* 














NTGET 


14125 


466 


1219 














■Mf QUpf, 


0073? 


467 


1409* 














^TPUT 


14126 


466 


1193 














MTSTAT 


00627 


465 


1315* 














MTPRAN 


00604 


465 


779 


1254* 












MTUMl 


00631 


465 


1320* 














MTU>)2 


00632 


1321* 
















N1Tn.M3 


00633 


1322* 
















MTIUJ4 


00634 


1323* 
















MTn\i5 


00635 


1324* 
















nTune 


00636 


1325* 
















MTUM7 


00637 


1326* 
















MTu^ia 


00540 


1327* 
















MIV^'HQT 


00406 


465 


1167* 
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^UBUPF 


14127 


320 


1476 














^''UDC 


14130 


375 


1420 














moT 


14331 


451 


1463 














^ULO 


07345 


58441^ 
















^1UL2 


07352 


5846 


5H49* 














'^UL3 


07366 


5P50 


5860* 














MU^PS2 


14132 


313 


1410 














M fj M T 


14133 


472 


1441 














MUPT 


14134 


326 


1460 














MQRP 


14135 


414 
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4694 


4706 






4707 


4709 


4714 


4719 


4720 


4730 


4732 


4735 






4759 


4763 


4765 


4781 


4785 


4803 


4807 


4809 






4R19 


4822 


4829 


4846 


4850 


4853 


4869 


4884 






4898 


4907 


4972 


4978 


4998 


5005 


5024 


5046 






5047 


5058 


5075 


5086 


5178 


5588 


5598 


5600 






5601 


5832 


5974 


5998 


6003 


6545 


6547 


6557 






6561 


6569 


6571 


6573 


6595 


6598 


6615 


6618 






6625 


6627 


6630 


6632 


6633 


6668 


6671 


6579 






6681 


6684 


6686 


6687 


6745 


6759 


6768 


6776 






6795 


6796 


6798 


6803 


6804 


6805 


6808 


6B1? 






6818 


6819 


6821 


6842 


6845 


5849 


6853 


6854 






6870 


6877 


6896 


6899 


6900 


6931 


6939 


6947 






6950 


6968 


6973 


7122 


7139 


7169 


7177 


7436 






7519 


8214 


8217 


8221 


8250 


8257 


8259 


8268 






8269 


8273 


8281 


8284 
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R?0 


000020 


744^^ 


2036 


2428 


2686 


2722 


2764 


3046 


3050 






3198 


3256 


3285 


3334 


5579 


5662 


5673 


7239 






8018 
















R22 


000022 


754=f^ 
















R2 3 


000023 


7551^ 
















R.30 


000030 


756* 
















R31 


000031 


757* 
















R32 


000032 


758* 
















R33 


000033 


759* 
















R35 


000035 


760* 
















R36 


000036 


761* 
















R37 


000037 


762* 
















SAVfS 


05040 


301 


344 


2590 


2916 


3254 


3293 


4040 


4042 






4051 


4055 


4292* 


4298 


4299 


4307 


4342 


4355 






4459 


4543 


4577 


4659 


4664 


4710 


4916 


4918 






4954 


4974 


4976 


4980 


5000 


5002 


5007 


5030 






5033 


5034 


5254 


5447 


5482 


5920 


5937 


6323 






6343 


6375 


6382 


6422 


6442 


6453 


6475 


6485 






7209 


7230 


7252 


7415 


7445 


7585 


7611 


7849 






7869 


7874 


7889 


8068 


8160 


8222 


8227 


8241 






824b 
















SAVP«rj 


00201 


1019* 


2460 


2786 


3505 


3512 


3524 






SB A 


707761 


2 2 4 7 * 


2248 














S8ACK 


05042 


4294* 


4306 














SCA^J 


07203 


5718* 


5812 


5821 












SCA'MCT 


14152 


374 


2067 














SCAAiO 


14153 


374 


1653 


1662 


1671 


1680 


1689 


1698 


1707 






1716 


1824 


1846 


1868 


1890 


1912 


1934 


1956 






1978 


2053 














SCA^'OO 


07204 


5719* 


6043 














SCA^U 


07211 


5724* 


5747 














SCL 


704404 


632* 
















SCnUMT 


00565 


1231* 


2279 


2283 


2291 


2295 


2296 


2298 


2299 






2307 


2317 


2349 


2350 


2351 


2352 






SCR 


704424 


636* 
















SCRIP 


00200 


301 


1018* 


2458 


2784 


4585 


4697 


4717 


4728 






4744 


4810 


4854 


5562 


5784 


5948 


6394 


6407 






6437 


6443 


7433 


7509 


7788 


8176 






SCRIPS 


00205 


301 


1023* 


2468 


2794 


4538 


4548 


4579 


4584 






4596 


5561 


7425 


7787 


8162 








SF:cnMD 


01531 


301 


2111 


2112 


2U6 


2230* 








SET 


13213 


3482 


8148* 


8183 












SETIO 


07107 


302 


2634 


2960 


5643* 


5646 


5649 


5686 


5688 






6316 


6389 


6399 


6423 


6433 


6454 


6477 


6488 






7190 


7704 


7712 


7714 


7715 


7721 


7727 


7731 






7736 


7751 


8011 


8061 


8187 


8302 






seiPRr 


03155 


3096 


3109 


3127* 


3141 










SET2 


13244 


6254 


8181* 














SLASH 


07315 


5817* 


5874 














SLASHl 


07317 


5813 


5819* 














slich: 


000062 


166 


167* 


259 












SLPCHK 


03102 


2268 


3083* 














SLPCKl 


03103 


3084* 


3095 















PAGR 2 47 



MUMPS 



ROSS REFPJRE'JCE 



SLPCK2 


03112 


3091* 


3102 


3108 


3124 










SLPCMT 


00571 


1235* 


2149 


2266 


2269 


3097 


3113 






SLPHNG 


03117 


3088 


3096* 














SLPT^'ip 


00572 


1 2 3 7 * 

3128 


30B4 


3085 


3091 


3105 


3106 


3120 


3121 


SLT 


70442? 


635* 
















SMAFU 


14154 


315 


1571 














SPEC02 


000035 


















SPEC03 


000037 


















spe:co4 


000014 


















SPOIMT 


00166 


302 


1007* 


2438 


2764 


3607 


3619 


3627 


3633 






3663 


367B 


3679 


4295 


4300 


4301 


4324 


4325 






4344 


4348 


4352 


6315 


6533 


6535 


6536 


6537 






6539 


6541 


6728 


5731 


7702 


7719 






SRR 


704412 


631* 


1649 


1652 


1657 


1661 


1666 


1670 


1675 






1679 


1684 


1688 


1693 


1697 


1702 


1706 


1711 






1715 


1820 


1823 


1841 


1845 


1863 


1867 


1885 






1889 


1907 


1911 


1929 


1933 


1951 


1955 


1973 






1977 
















SSF 


704401 


630* 


1647 


1555 


1664 


1673 


1682 


1691 


1700 






1709 


1B18 


1839 


1861 


1883 


1905 


1927 


1949 






1971 
















SSL 


704421 


633* 
















STACHO 


01562 


2269* 


3094 














STACHl 


01570 


2275* 


2358 














STACH2 


01620 


2299* 


2309 














STACH3 


001632 


2287 


2297 


2311* 












STACH4 


01571 


302 


2276* 


2320 












STACH7 


01623 


2282 


2303* 














STACH8 


001557 


302 


2264* 


2327* 












STACH9 


01600 


2283* 


2305 














STACK 


00165 


302 


1006* 


2436 


2762 


3601 


3625 


3635 


3666 






3680 


3683 


4308 


4313 


4345 


6313 


6538 


7705 






7713 
















STAR 


07311 


5810* 


5872 














STATCH 


01557 


302 


2266* 


2329 












STATX 


00330 


302 


1139* 


2277 


3093 










STATl 


00301 


302 
3129 


1136* 


1340 


2278 


2348 


2681 


2688 


3083 


STEMP 


00566 


1232* 


3132 


3137 












STSMP? 


00567 


123 3* 


3130 


3133 


3135 


3136 








stk:p 


05123 


302 


2594 


2920 


4092 


4361* 


4366 


4381 


4429 






7266 


7358 


7628 


7829 


7640 


7959 


7967 


7977 






7981 


7986 


7999 


8334 










STEPl 


05137 


4370 


4 3 7 3 * 


4382 












STvfOMp 


00746 


1475* 
















STMLP2 


000742 


1453* 
















STMO^iy 


000734 


1 4 1 1 * 
















ST*^UBP 


00747 


1476* 
















ST^^UCR 


000745 


1468* 
















S TV) (IOC 


000735 


1418* 
















STMUDT 


000744 


1461* 
















ST^^ULP 


000741 


1446* 
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STMUMT 


000740 


1439* 
















STm'A2 


00733 


1410* 
















STMUPT 


00743 


1460* 
















STMfJRF 


000737 


1432* 
















ST'VtfJRP 


000736 


1425* 
















STORl 


03744 


303 


2604 


2930 


3598* 


3616 


4009 


4018 


4027 






4039 


4108 


6990 


6997 


7008 


7 01.2 


7016 


70 31 






7349 


7374 














STDR2 


04034 


2606 


2932 


3660* 


3676 


4760 


4782 


4804 


4820 






4ft47 


4924 


4973 


4999 


7777 


7853 


7867 


7887 






7910 


7944 














STRACC 


000031 


236* 


1103 


2707 


3252 


5710 


5991 


5994 


7893 


STROSF 


05704 


4854* 


5008 














STRIf^G 


ooont 


226 

236 


227* 

246 


229 
247 


230* 


232 


233* 


235* 


235 


STRO 


07432 


5734 


5898* 














STRO. 1 


07435 


5901* 


5910 


5914 












STRl 


07525 


5831 


5971* 














STRl.l 


007612 


5984 


5988 


6024* 












STRl, 2 


07601 


6009 


6015* 














STRl. 4 


07610 


6014 


6022* 














STR2 


07612 


6025* 


6031 


6035 












STR^ 


07625 


6000 


6023 


6026 


6039* 










STR3,1 


07627 


5905 


6041* 


6088 












STR3,2 


07645 


6048 


6055* 














STR3.3 


07646 


6050 


6056* 














STR4 


007662 


303 


343 


6071* 












SU3D5K 


00717 


1390* 


2359 


2364 












SUBFXP 


07453 


5728 


5919* 














SllBMSR 


000001 


105 


106* 


1390 


1392 


1395 








SUSfviih^ 


000061 


1093* 


1095* 


1095 


1098* 


1098 


1101 






SUBQPT 


04710 


303 


2588 


2914 


3167 


3181 


3205 


3207 


3404 






M37 


4166* 


4172 


4178 


4574 


5124 


5200 


5506 






6110 


7409 


7783 


8015 


8153 








SlJBQUe 


000720 


303 


408 


1391* 


2339 


2369 


3500 






SUBSCR 


07467 


5783 


5936* 














su^ 


00215 


303 


1 3 5 * 


2492 


2818 


4463 


4474 


5157 


5712 






5881 


5884 


5892 


5924 


5941 


5962 


6386 


6402 


SVAR 


00146 


303 


965* 


3610 


3612 


3613 


3670 


3672 


3673 






4303 


4304 


4349 


4351 


654B 


6549 






SVF 


05363 


303 


343 


2632 


2959 


4570* 


4603 


4617 


5176 


SVEl 


05421 


4573 


4607* 














SWAPSW 


00652 


303 


1344* 


2186 


2189 


3012 


3353 


3502 


3522 






3945 


4010 


4100 


4109 


4649 


5092 


6212 


7044 






7364 


7375 


7657 


7765 


8424 








S^JAPSZ 


000174 


1101* 


1103 


2699 












SWIM 


00675 


1372* 
















SWNUM 


12745 


7B34 


7966* 














SWpC^T 


00173 


303 


1013* 


2448 


2774 


3013 








SWPI^J 


02327 


2375 


2677* 


2997 












SWPIMO 


03040 


3028 


3034* 














SWPTMl 


03064 


3057* 


3071 














SWP1M2 


03067 


3054 


3061* 
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SWPIM3 


003000 


2373 


2376 


2999* 












SwPI^>j4 


02375 


2720* 


2723 














SWPOK 


003052 


3040 


3044* 














SwP0K2 


03062 


3036 


3055* 














SWPGJT 


01725 


2374 


2399* 


2402 


2674 










SWPPTR 


00702 


1377* 
















SYM 


00177 


304 


1017^^= 


2456 


2782 


4583 


4656 


4761 


4783 






4805 


4821 


4848 


5560 


5757 


5775 


5794 


5797 






5944 


5959 


6122 


6123 


6124 


6142 


6143 


6147 






6148 


6158 


6162 


6164 


6165 


6167 


6182 


6183 






6186 


6187 


6188 


6192 


6193 


6194 


6198 


6200 






6301 


6302 


6307 


6317 


6328 


6376 


6434 


6476 






6486 


7431 


7508 


7786 


8177 








SY'-^SKG 


00170 


304 


1009* 


2442 


2768 


3605 


3621 


3675 


3695 






4296 


4321 


4660 


4758 


4780 


4802 


4818 


4845 






4912 


4969 


4995 


7499 


8213 








SYMBOL 


05434 


304 


2600 


2926 


4587 


4644* 


4650 


4655 


4740 






^863 


4874 


4894 


4925 


4960 


5011 


5039 


5096 






5098 


5100 


5567 


5826 


7435 


7511 


7791 


8180 


SY^BDT 


00135 


304 


953* 


2683 


2710 


2717 


2718 


7776 




SYMEMD 


00153 


976* 


2725 


4657 


4695 


7667 


8219 






SY^EK 


006166 


4743 

5014 


4766 
5087* 


4789 


4832 


4866 


48 8 3 


4927 


4963 


SYMS 


00204 


304 


1022* 


2466 


2792 


4529 


4531 


4578 


4582 






4597 


5559 


6290 


6292 


6305 


7430 


7785 


8161 


SYMTAX 


03724 


304 


344 


2602 


2928 


3387 


3414 


3574* 


3581 






3587 


3589 


3714 


3718 


3721 


3728 


3732 


3743 






3755 


3759 


3762 


3775 


3777 


3796 


3899 


4516 






4533 


5335 


5373 


5383 


5400 


5416 


5724 


5751 






5762 


5779 


5789 


5796 


5803 


6280 


6294 


7285 






8081 


8096 














SYS ID 


00611 


1285* 
















SYST^IB 


000606 


719 


1280* 














SYSVAR 


000015 


975* 


1378 


2685 












SYSV.M>M 


00703 


1378* 
















S2BACK 


05046 


4298* 


4326 














TALL 


13301 


8189 


8213* 














TALLl 


13303 


8215* 


8252 


8254 


8260 


8286 








TALL2 


13315 


8225* 


8240 














TALf,4 


13353 


8257* 


8266 














TARRAY 


013357 


8243 


8263* 














TARRl 


13364 


8271* 


8290 














TARR2 


13400 


8284* 


8299 














TASTR 


13407 


8275 


8292* 














TCP 


700402 


575* 


2057 














TCWP 


00202 


304 


343 


1020* 


2462 


2788 


4464 


4473 


5711 






5745 


5B36 


5898 


5908 


5926 


5943 


5960 


5971 






6029 


6388 


6400 


7884 


7933 








TEMPK 


14155 


315 
















TEMPI 


00224 


304 
7846 


343 
7898 


1042* 
8202 


2506 


2832 


4245 


5171 


5593 


TEMP2 


00227 


305 


1045* 


2512 


2838 


4274 


5177 


5332 


5634 






5979 


7862 


7929 


7930 


7936 


7941 
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TER^I 


00216 


305 


1036* 


2494 


2820 


4462 


4475 


5159 


5717 






5838 


5847 


5854 


5869 


5878 


5923 


5940 


5963 






6385 


6403 














TIMSSL 


00721 


1398* 


3009 














TL5 


700406 


5764= 


2074 


2156 












TPIiM 


14156 


374 


1176 














TRys^SC 


12575 


7858* 


7864 














TSF 


700401 


5744= 


1734 














TSTR 


07021 


2646 


2972 


5587* 


5602 


8253 


829R 






TT 


00 3 32 


1150* 
















TTALEM 


000031 


178 


179* 














TTALFL 


000012 


181 


182* 














TTCHftR 


000031 


175 


176* 


257 












TTCHR 


000062 


















TTSET 


14157 


374 


1651 


1660 


1669 


1678 


1687 


1696 


1705 






1714 


1822 


1844 


1866 


1888 


1910 


1932 


1954 






1976 


2051 


2066 












TTi/^ORD 


000015 


257* 
















TVAR 


00147 


966* 


3016 














TYPE 


13250 


3483 


8187* 














type:2 


13263 


8395 


8198* 


8209 












TyPE3 


13274 


8192 


8207* 














Tl 


00243 


1057* 


2536 


2862 


7417 


7437 


7496 


7521 


7525 






7530 


7535 


7538 


7540 


7551 


7554 


7560 


7567 






8054 
















T2 


00244 


1058* 

7559 


2538 
7572 


2864 
8053 


7418 


7442 


7522 


7542 


7552 


T3 


00245 


1059* 
7594 


2540 
7600 


2866 
7608 


7419 
8052 


75 31 


7558 


7580 


7583 


UBACK 


05105 


4343* 


4356 














U^^ I Nils 


07231 


5721 


5743* 














{i^ir,ncK 


14160 


315 


3484 














OMGT 


06201 


5108* 


5121 














(ifvsA\^e 


05103 


305 


344 


2592 


2918 


3029 


3250 


3301 


4037 






40 41 


4044 


4045 


4054 


4057 


4293 


4305 


4341* 






4 35 3 


4354 


4357 


4471 


4555 


4595 


4708 


4721 






4733 


4914 


4917 


4920 


5150 


5264 


5461 


5480 






5958 


60 81 


6348 


6367 


6396 


6432 


7221 


7327 






7486 


7557 


7604 


8048 


8103 


8175 


8224 


8225 






8239 


8270 


8285 












UPLUS 


07233 


5723 


5745* 














USABLE 


00277 


305 


1103* 


2709 












nsER 


00241 


305 


1055* 


2532 


2S58 










USERS 


00665 


305 


1357* 














Vhh 


00207 


3C5 


1025* 


2472 


2798 


3900 


3940 


3954 


4019 






4056 


4091 


4365 


4368 


4380 


4389 


4396 


4406 






4418 


4419 


4427 


4752 


4764 


4799 


4943 


4956 






4964 


5067 


5078 


5085 


5142 


5161 


5162 


5319 






5321 


5450 


5456 


5464 


5471 


5475 


5485 


5524 






5531 


5534 


5620 


5622 


5718 


5744 


5834 


5835 






5644 


5851 


5868 


5893 


5925 


5942 


5961 


6066 






6150 


6159 


6324 


6327 


6353 


6362 


6368 


6387 






6 401 


6782 


6816 


6820 


6834 


6850 


7260 


7311 



PrG 
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UALF 



VkRhEt4 

vxi 

WATHl 

i^JRITE 
vvRTTEl 

ivRlTE2 
/iRITK3 

>i R X T' e 4 

wRLlNE 
i^RPART 



00211 



000001 

000074 

00750 

001006 

000001 

000001 

03134 

315 2 

00650 

00331 

06343 

03154 

13417 

13441 

13460 

13462 

13453 

12735 

07041 



WRSTEP 07066 



^RTC^iT 

I^RTSw 

w T I f^i e H 

XBODLl 

XB0n(/2 

XR0n[,3 

XCCORv'J 

XCOTS 

XCOISl 

XCHTS? 

XCDIS4 

XCOKR 

XCOKRl 

XCOK-n 

KCKRR 

XCHl .1 

XCH1.2 

XCR2.1 
XCH?,2 
XC11 



XCI2 



00175 
00172 

000074 
00144 
06207 
06210 
06211 
13555 
13600 
13612 
13616 
13625 
135:?7 
13537 
13514 
13623 
05003 
05010 
04675 
05027 
05034 
04765 



04766 



7323 
7960 
356 
4878 
5701 

1069* 
305 
306 
202 
6 8 S * 
3090 
3112 
1342* 

306 
5217* 
31 18 
3486 
8 304 
8326 
8311 
5615 
7951 
306 
8 32B 
2628 
5641 
306 
306 
6823 
169 
306 
5 3 1 7 * 
51 18* 
5109 
8366 
8386 
8467 
8472 
8476 
8364 
8368 
8359 
8470 
4236 
4234 
4] 44 
4265 
4263 
307 
5986 
8088 
4218* 



7397 

7979 

1030* 

4882 

6085 

1101 
1491* 
1541* 
203* 

3109* 
3116 

1148* 

5272 

3125* 

8302* 

8320* 

8334* 

8333 

8329* 

7955* 

2558 

2954 
7961 
1015* 
1 1 1 * 
7106 
170* 
96 3* 
5248 
5239 
5119* 
8434* 
8417 
8474* 
8487* 
8501* 
8 401* 
8414* 
8378* 
8471 
4240* 
4239 
4149* 
4269* 
4268 
3305 
6017 
8118 
6017 



7497 
7984 
2482 
4939 
6639 



1561 
1561 



3123* 

1342 
5295 



8338 
8336* 

2884 

4952 
8335 
2452 
2446 
7126 
1517 
3032 



8481 
4245* 



4274* 

3309 

6018 



7503 
8144 

2808 
4949 



8515 



1343 
5306 



5095 

5035 

2778 
2772 
7130 

7198 



8484 



3374 
6047 



7739 
8316 
4544 
5021 



3355 
5310 



6131 
7182 

8115 



8462* 8488 8491 



3927 
7201 



7839 

4556 
5063 



7937 

4748 
5082 



7958 

4795 
5564 



5668 
5323 



5347 



5099 5604* 5623 8317 
5038 5042 5610 5625* 



6208 
7745 



660? 
7755 



6647 



8498 



8508 



8493* 8499 



8503 



8507 



4193 
7890 



4217* 
7989 



5705 
8073 
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KCT3 

KCDM 
XCOMEK 
XCQREX 
XCOl 



XC02 

XC03 

XC04 

XDECMS 

XDECOO 

X0EC2A 

X0EC28 

XOISLO 

XDOfJT 

XOOUFE 

XDQUri 

xi)0ijr2 

XFDPMA 
XFR 
XFROM 
XFR.I 

XFR. 2 

XFO 

XFl 

XGASS 

XGLnSA 

XGSYM 

XLOKOT 

XndT 

X OUT or 

XOOTT 

XOilTlO 

X0UT2 

X0(IT3 

X0UT4 

X0aT4A 

XOflTS 

X0UT5A 

XQUT5B 

XnUT6 

XQUT? 

X0UT8 

X0aT9 

XPACK2 

XPARTl 
XPt,AC7 

xpla:3 

XPrjAC4 



04767 

13467 
13547 
13550 
04704 



04705 
04706 
04707 
410 5 
04112 
04246 
04253 
14161 
04206 
04207 
04222 
04227 
06674 
MACRO 

ootoo 

00024 
00025 
06675 
06710 
10113 
10410 
10152 
03702 
03175 
03260 
03214 
03322 
03225 
03255 
03233 
03253 
03236 
03241 
03247 
03267 
03277 
03314 
03320 
03334 

05164 
04371 
04374 
04373 



307 
6049 
3487 
8388 
8423* 

30 7 
4599 
7282 
80B6 
3920 
3556 
4160* 
3715* 
3720* 
3816 
3818 

315 
3726 
3760 
3784 
3782 
5494* 

672 

306 

749* 

750* 
5495* 
5506* 
1 9 3 
1087 
1085 
3537 
3147* 

441 
3158 
3151 
3176* 

367 
3182* 

306 
3185* 

305 
3194* 
3170 
3172 
3174 
3165 
2396 
3317 
4 3 9 7 * 
3921 
3919 
3925 



3297 

7906 

8348* 

8422* 

8451 

3384 

5169 

7 30 2 

8200 

4 1 5 8 * 

4159* 

3733 

3734 

3819* 

3824* 

1081 

3777* 

3763 

3789* 

3794* 

5570 

890* 
896 
900 
5576 

627 7* 
6524* 
631 3* 
3540* 

3204* 

3166* 

3243* 

3214 

3201* 

3210 

2395 

3227 

3188* 

3212* 

3221* 

3235* 

3240* 

3256* 

3337 

4408 

3926* 

3924 

3928* 



3315 
7923 



3918 
5429 
7634 



4176 



3749 



906* 



3218 



3198* 

3231 

3241 



3272 



3929* 



3923 
8127 



4150 
5591 
7847 



5435 
3754 



4219* 5912 



6010 



6033 



4157* 

5632 

7890 



4169 
5977 
7939 



4241 
7213 
7991 



4270 
7272 

8071 



3757 



3776 3778* 



8034 
3238 



3279 



3283 



3295 



3299 



3306 



PAG* 
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XPLAC5 

XPROOA 

XR 

XRELl 

XRCTl 

xre:t2 

XSBQPt 

XSETO 

XSETOl 

xse:ti 

XSTOU 
XSTRl 

xsY^n 
XvSy\f2 

XTSTR2 
XVAR 

XVM 

XWRPAR 
WAR 

ZERO 
%E 
%^ 
.CLEAR 

• close: 

.DRKB 
,DBTP 

• iD B T P 1 

• OLEirE 
.EMTSR 
.EXIT 
,FSTAT 
,GET 
.GTBUF 
.GV6UF 

• iiMir 

.lOPS 
.JCF^il 

•MTAPE 

• MTRA.M 

.OVRLA 

,PUT 

.RAfiO 

.READ 

.RGMA^ 

.RTRA'V 

.SEEK 

.SETUP 

.SYS ID 

.TIMER 

,TPAM 



0441:4 
03642 
001 60 
06313 
03752 
04042 
04717 
07140 
07150 
07160 
04026 
07030 
03733 
03741 
07034 
00150 

000001 

07042 
00151 

13577 

01006 
00772 
MACRO 
•^ACRO 
01270 
01303 
01315 
f^ACRO 
MACRO 
MACRO 
MACRO 
^MACRO 
MACRO 
NACRO 
MACRO 
00606 
03324 
f'^ACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
f^ACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 
MACRO 



39461^ 
3499=^ 

988* 
1075 
3605=^= 
3666* 
4170 
5670* 
5678* 
5672 
3623 
5594* 
3577 
35B4 
5595 

306 
3289 

118 
2244 
5605* 

968* 
3347 
8449 

306 
1517* 



173 3 
17 36 

2063 



1282* 
306 



3957 
3513 
2260 
1077 
3648 
3698 
4173* 

5682 

5686* 

3649* 

5597 

3581* 

3587* 

5598* 

967* 
3291 

119* 
3000 
5621 
322 3 
8029 
8453* 
1540* 



2043* 
2057* 
2071* 



2412 
1079 



2738 
5193* 



3005 



2181 
3150 



3180 

3324 

294 

3045 

3224 
8031 

1541 



3182 

3345 

660 

3063 

3229 



3184 
5514 
1776 
4651 

3236 



3215 
5522 
2031 
5645 

3325 



3222 3237 
2219 2222 

3326 3346 



3245* 
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USE 
W A I 
W'AI 

WD Y 

.A 

.D 
^2K 



R MACRO 
r MACRO 
TR NACRO 

PC M R r» D n 

MACRO 
MACRO 
000000 
13635 
160000 
001600 
000040 



3F 

ON 



B345* 
306 
261* 

R 346* 
?62 



8496 
3505 
8346 
8501 
263* 



8511* 

8444 

8504 



